The Code for The Visual basic ” My Horoschope” For Hercor College Studient’s.

This is for the Mouth

Public Class Form1

Private Sub btnhor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhor.Click
txtfname.Enabled = True
txtlname.Enabled = True
cmbage.Enabled = True
cmbbdate.Enabled = True
cmbgender.Enabled = True
cmbmonths.Enabled = True
cmbyear.Enabled = True
txtsign.Enabled = True
txtnum.Enabled = True
txtday.Enabled = True

If cmbmonths.Text = “January” Then
lblsign.Visible = True
txtsign.Visible = True
txtsign.Enabled = True
txtsign.Text = “Capricorn”
txtnum.Text = “7, 9, 21, 28 16″
txtday.Text = “Monday”
lblsign.Visible = True
lblnum.Visible = True
lblday.Visible = True
txtsign.Visible = True
txtnum.Visible = True
txtday.Visible = True

ElseIf cmbmonths.Text = “Febuary” Then
lblsign.Visible = True
txtsign.Visible = True
txtsign.Enabled = True
txtsign.Text = “Aquarius”
txtnum.Text = “1, 17, 15″
txtday.Text = “Tuesday”
lblsign.Visible = True
lblnum.Visible = True
lblday.Visible = True
txtsign.Visible = True
txtnum.Visible = True
txtday.Visible = True

ElseIf cmbmonths.Text = “March” Then
lblsign.Visible = True
txtsign.Visible = True
txtsign.Enabled = True
txtsign.Text = “Pisces”
txtnum.Text = “2, 12, 18″
txtday.Text = “Wednesday”
lblsign.Visible = True
lblnum.Visible = True
lblday.Visible = True
txtsign.Visible = True
txtnum.Visible = True
txtday.Visible = True

ElseIf cmbmonths.Text = “April” Then
lblsign.Visible = True
txtsign.Visible = True
txtsign.Enabled = True
txtsign.Text = “Taurus”
txtnum.Text = “3, 13, 19″
txtday.Text = “Thursday”
lblsign.Visible = True
lblnum.Visible = True
lblday.Visible = True
txtsign.Visible = True
txtnum.Visible = True
txtday.Visible = True

ElseIf cmbmonths.Text = “May” Then
lblsign.Visible = True
txtsign.Visible = True
txtsign.Enabled = True
txtsign.Text = “Gemini”
txtnum.Text = “4, 20, 26″
txtday.Text = “Friday”
lblsign.Visible = True
lblnum.Visible = True
lblday.Visible = True
txtsign.Visible = True
txtnum.Visible = True
txtday.Visible = True

ElseIf cmbmonths.Text = “June” Then
lblsign.Visible = True
txtsign.Visible = True
txtsign.Enabled = True
txtsign.Text = “Cancer”
txtnum.Text = “5, 21, 22″
txtday.Text = “Saturday”
lblsign.Visible = True
lblnum.Visible = True
lblday.Visible = True
txtsign.Visible = True
txtnum.Visible = True
txtday.Visible = True

ElseIf cmbmonths.Text = “July” Then
lblsign.Visible = True
txtsign.Visible = True
txtsign.Enabled = True
txtsign.Text = “Leo”
txtnum.Text = “6, 30, 25″
txtday.Text = “Sunday”
lblsign.Visible = True
lblnum.Visible = True
lblday.Visible = True
txtsign.Visible = True
txtnum.Visible = True
txtday.Visible = True

ElseIf cmbmonths.Text = “August” Then
lblsign.Visible = True
txtsign.Visible = True
txtsign.Enabled = True
txtsign.Text = “Virgo”
txtnum.Text = “8, 19, 20″
txtday.Text = “Monday”
lblsign.Visible = True
lblnum.Visible = True
lblday.Visible = True
txtsign.Visible = True
txtnum.Visible = True
txtday.Visible = True

ElseIf cmbmonths.Text = “September” Then
lblsign.Visible = True
txtsign.Visible = True
txtsign.Enabled = True
txtsign.Text = “Libra”
txtnum.Text = “9, 23, 26″
txtday.Text = “Tuesday”
lblsign.Visible = True
lblnum.Visible = True
lblday.Visible = True
txtsign.Visible = True
txtnum.Visible = True
txtday.Visible = True

ElseIf cmbmonths.Text = “October” Then
lblsign.Visible = True
txtsign.Visible = True
txtsign.Enabled = True
txtsign.Text = “Scorpio”
txtnum.Text = “10, 27, 38″
txtday.Text = “Wednesday”
lblsign.Visible = True
lblnum.Visible = True
lblday.Visible = True
txtsign.Visible = True
txtnum.Visible = True
txtday.Visible = True

ElseIf cmbmonths.Text = “November” Then
lblsign.Visible = True
txtsign.Visible = True
txtsign.Enabled = True
txtsign.Text = “Sagitarius”
txtnum.Text = “11, 15, 32″
txtday.Text = “Thursday”
lblsign.Visible = True
lblnum.Visible = True
lblday.Visible = True
txtsign.Visible = True
txtnum.Visible = True
txtday.Visible = True

ElseIf cmbmonths.Text = “December” Then
lblsign.Visible = True
txtsign.Visible = True
txtsign.Enabled = True
txtsign.Text = “Aries”
txtnum.Text = “12, 35, 40″
txtday.Text = “Friday”
lblsign.Visible = True
lblnum.Visible = True
lblday.Visible = True
txtsign.Visible = True
txtnum.Visible = True
txtday.Visible = True

End If

End Sub

Code for the Clear

Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
txtfname.Text = ” “
txtlname.Text = ” “
cmbage.Text = ” “
cmbgender.Text = ” “
cmbbdate.Text = ” “
cmbmonths.Text = ” “
cmbyear.Text = ” “
txtsign.Text = ” “
txtnum.Text = ” “
txtday.Text = ” “

End Sub

And also for the “closed“

Me.Closed()

That’s all..!