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

Pbb double task video

The House B housemates makes a funny video inside the house of big brother. As you can see this video its make laugh to you. It is hard for them to do but they want the people outside and all over the world whose watching this video will be happy.