Visual basic for CSL 2-E

Private Sub btnmhoroscope_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmhoroscope.Click

lblzsign.Visible = True
txtzsign.Visible = True
lbllcolor.Visible = True
txtlcolor.Visible = True
lbllday.Visible = True
txtllday.Visible = True
lbllnumber.Visible = True
txtlnumber.Visible = True


txtfname.Enabled = False
txtlname.Enabled = False
cmbage.Enabled = False
cmbday.Enabled = False
cmbgender.Enabled = False
cmbmonth.Enabled = False
cmbyr.Enabled = False


If cmbmonth.Text = "January" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Aquarius"
txtlcolor.Text = "Red"
txtlnumber.Text = "10,18, &32"
txtllday.Text = "Monday"

ElseIf cmbmonth.Text = "February" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Cancer"
txtlcolor.Text = "Apple Green"
txtlnumber.Text = "24,36 & 14"
txtllday.Text = "Tuesday"

ElseIf cmbmonth.Text = "March" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Gemini"
txtlcolor.Text = "Orange"
txtlnumber.Text = "19,28 & 35"
txtllday.Text = "Wednesday"

ElseIf cmbmonth.Text = "April" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Taurus"
txtlcolor.Text = "Black"
txtlnumber.Text = "17,16 & 27"
txtllday.Text = "Thursday"

ElseIf cmbmonth.Text = "May" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Aries"
txtlcolor.Text = "Brown"
txtlnumber.Text = "31,24 & 13"
txtllday.Text = "Friday"

ElseIf cmbmonth.Text = "June" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Scorpio"
txtlcolor.Text = "White"
txtlnumber.Text = "28,34 & 18"
txtllday.Text = "Monday"

ElseIf cmbmonth.Text = "July" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Libra"
txtlcolor.Text = "Blue"
txtlnumber.Text = "58,14 & 69"
txtllday.Text = "Tuesday"

ElseIf cmbmonth.Text = "August" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Virgo"
txtlcolor.Text = "Pink"
txtlnumber.Text = "1,15 & 29 "
txtllday.Text = "Wednesday"

ElseIf cmbmonth.Text = "September" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Leo"
txtlcolor.Text = "Gray"
txtlnumber.Text = "24,36 & 34"
txtllday.Text = "Thursday"

ElseIf cmbmonth.Text = "October" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Pisces"
txtlcolor.Text = "Yellow Green"
txtlnumber.Text = "22,26 & 34"
txtllday.Text = "Friday"

ElseIf cmbmonth.Text = "November" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Capricorn"
txtlcolor.Text = "Violet"
txtlnumber.Text = "14,12 & 9"
txtllday.Text = "Saturday"

ElseIf cmbmonth.Text = "December" Then
lblzsign.Visible = True
txtzsign.Visible = True
txtzsign.Enabled = True
txtzsign.Text = "Sagittarius"
txtlcolor.Text = "Sky Blue"
txtlnumber.Text = "8,10 & 24"
txtllday.Text = "Sunday"

End If

End Sub

Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click

lblzsign.Visible = False
txtzsign.Visible = False
lbllcolor.Visible = False
txtlcolor.Visible = False
lbllday.Visible = False
txtllday.Visible = False
lbllnumber.Visible = False
txtlnumber.Visible = False

txtfname.Text = " "
txtlname.Text = " "
cmbage.Text = " "
cmbday.Text = " "
cmbgender.Text = " "
cmbmonth.Text = " "
cmbyr.Text = " "

txtfname.Enabled = True
txtlname.Enabled = True
cmbage.Enabled = True
cmbday.Enabled = True
cmbgender.Enabled = True
cmbmonth.Enabled = True
cmbyr.Enabled = True

txtzsign.Text = " "
txtlcolor.Text = " "
txtllday.Text = " "
txtlnumber.Text = " "
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
Me.Close()
End Sub

End Class