Form Zodiak

1. Design form dibawah ini dengan nama form zodiak, gunakan label, textbox, combobox dan button pada toolbox

Dim i, jumlah As Variant

Private Sub txtnama_click()
If txtnama.Text = "" Then
MsgBox "Anda Belum Memasukkan Nama Anda"
End If
End Sub

Private Sub Form_Load()
For i = 1 To 31
Me.txttgl.AddItem (Str(i))
Next i
For i = 1 To 12
Me.txtbulan.AddItem (MonthName(i))
Next i

For i = 1980 To Year(Now)
Me.txttahun.AddItem (Str(i))
Next i
End Sub

Private Sub txtzodiak_Click()
If (Me.txtbulan.Text = "Desember" And Me.txttgl.Text >= 22) Or (Me.txtbulan.Text = "Januari" And Me.txttgl.Text <= 20) Then
zodiak.Text = "CAPRICORN"
ElseIf (Me.txtbulan.Text = "Januari" And Me.txttgl.Text >= 21) Or (Me.txtbulan.Text = "Februari" And Me.txttgl.Text <= 19) Then
zodiak.Text = "AQUARIUS"
ElseIf (Me.txtbulan.Text = "Februari" And Me.txttgl.Text >= 20) Or (Me.txtbulan.Text = "Maret" And Me.txttgl.Text <= 20) Then
zodiak.Text = "PISCES"
ElseIf (Me.txtbulan.Text = "Maret" And Me.txttgl.Text >= 21) Or (Me.txtbulan.Text = "April" And Me.txttgl.Text <= 19) Then
zodiak.Text = "ARIES"
ElseIf (Me.txtbulan.Text = "April" And Me.txttgl.Text >= 20) Or (Me.txtbulan.Text = "Mei" And Me.txttgl.Text <= 20) Then
zodiak.Text = "TAURUS"
ElseIf (Me.txtbulan.Text = "Mei" And Me.txttgl.Text >= 21) Or (Me.txtbulan.Text = "Juni" And Me.txttgl.Text <= 21) Then
zodiak.Text = "GEMINI"
ElseIf (Me.txtbulan.Text = "Juni" And Me.txttgl.Text >= 22) Or (Me.txtbulan.Text = "Juli" And Me.txttgl.Text <= 22) Then
zodiak.Text = "CANCER"
ElseIf (Me.txtbulan.Text = "Juli" And Me.txttgl.Text >= 23) Or (Me.txtbulan.Text = "Agustus" And Me.txttgl.Text <= 23) Then
zodiak.Text = "LEO"
ElseIf (Me.txtbulan.Text = "Agustus" And Me.txttgl.Text >= 24) Or (Me.txtbulan.Text = "September" And Me.txttgl.Text <= 22) Then
zodiak.Text = "VIRGO"
ElseIf (Me.txtbulan.Text = "September" And Me.txttgl.Text >= 23) Or (Me.txtbulan.Text = "Oktober" And Me.txttgl.Text <= 23) Then
zodiak.Text = "LIBRA"
ElseIf (Me.txtbulan.Text = "Oktober" And Me.txttgl.Text >= 24) Or (Me.txtbulan.Text = "November" And Me.txttgl.Text <= 22) Then
zodiak.Text = "SCORPIO"
ElseIf (Me.txtbulan.Text = "November" And Me.txttgl.Text >= 23) Or (Me.txtbulan.Text = "Desember" And Me.txttgl.Text <= 21) Then
zodiak.Text = "SAGITARIUS"
End If
End Sub