Dim DaysInMonth(0 To 11) As Integer     'array to hold the number of days in each month



Private Sub cmbMonth_Click()

    'Get the item number that was selected
    Dim MonthItemNum As Integer
    MonthItemNum = cmbMonth.ListIndex
    
    'Get the number of items in the cmbDays combo box
    'To determine how many days we have to add or remove
    'Depending on the month selected
    Dim TotalDays As Integer
    Dim NumOfDays As Integer
    Dim Difference As Integer
        
    TotalDays = cmbDay.ListCount        'total days in the list currently
    NumOfDays = DaysInMonth(MonthItemNum)       'total amount of days in the month selected
    
    'Find the difference
    Difference = NumOfDays - TotalDays
    
    
    
    
    ' If the difference is greater than 0, then add days
    If Difference > 0 Then
           
        For i = 1 To Difference
            cmbDay.AddItem (TotalDays + i)
        Next i
    
    ' If the difference is less than 0, then subtract days
    ElseIf Difference < 0 Then
        
        Difference = Difference * -1     'Make it positive
        For i = 1 To Difference
            cmbDay.RemoveItem (TotalDays - i)
        Next i
    End If
    
    
    
    
    
End Sub

Private Sub cmdGetSign_Click()
    'Determine the Zodiac sign by the values of cmbDay and cmbMonth
    Dim Day As Integer
    Dim Zodiac As String
    
    Day = cmbDay.Text
        
    Select Case cmbMonth.ListIndex
        'January
        Case 0:
           'CAPRICORN
            If Day < 20 Then
                Zodiac = "Capricorn"
            
            'AQUARIUS
            Else
                Zodiac = "Aquarius"
            End If
                
            
            
        'February
        Case 1:
            'AQUARIUS
            If Day < 20 Then
                Zodiac = "Aquarius"
            'PISCES
            Else
                Zodiac = "Pisces"
            End If
                
        

        'March
        Case 2:
            'PISCES
            If Day <= 20 Then
                Zodiac = "Pisces"
            
            'ARIES
            Else
                Zodiac = "Aries"
            End If
            
        

        'April
        Case 3:
            'ARIES
            If Day <= 20 Then
                Zodiac = "Aries"
            
            'TAURUS
            Else
                Zodiac = "Taurus"
            End If
    
    
    
        'May
        Case 4:
            'TAURUS
            If Day <= 21 Then
                Zodiac = "Taurus"
                
            'GEMINI
            Else
                Zodiac = "Gemini"
            End If
        

    
        'June
        Case 5:
            'GEMINI
            If Day <= 22 Then
                Zodiac = "Gemini"
            
            'CANCER
            Else
                Zodiac = "Cancer"
            End If
        

    
        'July
        Case 6:
            'CANCER
            If Day <= 23 Then
                Zodiac = "Cancer"
                
            'LEO
            Else
                Zodiac = "Leo"
            End If
    
    
    
        'August
        Case 7:
            'LEO
            If Day <= 23 Then
                Zodiac = "Leo"
            
            'VIRGO
            Else
                Zodiac = "Virgo"
            End If
            
        
   
        'September
        Case 8:
            'VIRGO
            If Day <= 23 Then
                Zodiac = "Virgo"
                
            'LIBRA
            Else
                Zodiac = "Libra"
            End If
        
        
        'October
        Case 9:
            'LIBRA
            If Day <= 23 Then
                Zodiac = "Libra"
            
            'SCORPIO
            Else
                Zodiac = "Scorpio"
            End If
        
        
        'November
        Case 10:
            'SCORPIO
            If Day <= 22 Then
                Zodiac = "Scorpio"
            
            'SAGITTARIUS
            Else
                Zodiac = "Sagittarius"
            End If
            
        
        
        'December
        Case 11:
            'SAGITTARIUS
            If Day <= 22 Then
                Zodiac = "Sagittarius"
                
            'CAPRICORN
            Else
                Zodiac = "Capricorn"
            End If
        
        
    End Select
    
    
    lblSign.Caption = "Your sign is: " & Zodiac
    
End Sub



Private Sub Form_Load()

    'Fill in the cmbDay list box with 31 days (default)
    
    For i = 1 To 31
        cmbDay.AddItem (i)
    Next i
    
    cmbDay.ListIndex = 0        'sets the list to the first item
    
    'Fill in the cmbMonth list box with the months
    '(January by default)
    cmbMonth.AddItem ("January")
    cmbMonth.AddItem ("February")
    cmbMonth.AddItem ("March")
    cmbMonth.AddItem ("April")
    cmbMonth.AddItem ("May")
    cmbMonth.AddItem ("June")
    cmbMonth.AddItem ("July")
    cmbMonth.AddItem ("August")
    cmbMonth.AddItem ("September")
    cmbMonth.AddItem ("October")
    cmbMonth.AddItem ("November")
    cmbMonth.AddItem ("December")
    
    
    'Fill the DaysInMonth array
    DaysInMonth(0) = 31             'January
    DaysInMonth(1) = 29             'Feburary (leap year)
    DaysInMonth(2) = 31             'March
    DaysInMonth(3) = 30             'April
    DaysInMonth(4) = 31             'May
    DaysInMonth(5) = 30             'June
    DaysInMonth(6) = 31             'July
    DaysInMonth(7) = 31             'August
    DaysInMonth(8) = 30             'September
    DaysInMonth(9) = 31             'October
    DaysInMonth(10) = 30            'November
    DaysInMonth(11) = 31            'December
    
    
    
    
    
    
    cmbMonth.ListIndex = 0      ' sets the list to the first item
    
    
    
End Sub