Dim loMo As String

Dim hiMo As String

Dim loDate As Integer

Dim hiDate As Integer

Private Sub cmdOK_Click()

lblSDate.Caption = loMo & loDate

lblEDate.Caption = hiMo & hiDate

cmdOK.Visible = False

lblBorn.Visible = True

lblAnd.Visible = True

lblSDate.Visible = True

lblEDate.Visible = True

End Sub

Private Sub OptAqu_Click()

loMo = "January "

hiMo = "February "

loDate = 20

hiDate = 18

End Sub

Private Sub OptAri_Click()

loMo = "March "

hiMo = "April "

loDate = 21

hiDate = 19

End Sub

Private Sub OptCan_Click()

loMo = "June "

hiMo = "July "

loDate = 21

hiDate = 22

End Sub

Private Sub OptCap_Click()

loMo = "December "

hiMo = "January "

loDate = 22

hiDate = 19

End Sub

Private Sub OptGem_Click()

loMo = "May "

hiMo = "June "

loDate = 21

hiDate = 20

End Sub

Private Sub OptLeo_Click()

loMo = "July "

hiMo = "August "

loDate = 23

hiDate = 22

End Sub

Private Sub OptLib_Click()

loMo = "September "

hiMo = "October "

loDate = 23

hiDate = 22

End Sub

Private Sub OptPis_Click()

loMo = "February "

hiMo = "March "

loDate = 19

hiDate = 20

End Sub

Private Sub OptSag_Click()

loMo = "November "

hiMo = "December "

loDate = 22

hiDate = 21

End Sub

Private Sub OptSco_Click()

loMo = "October "

hiMo = "November "

loDate = 23

hiDate = 21

End Sub

Private Sub OptTau_Click()

loMo = "April "

hiMo = "May "

loDate = 20

hiDate = 20

End Sub

Private Sub OptVir_Click()

loMo = "August "

hiMo = "September "

loDate = 23

hiDate = 22

End Sub