Tanggal dengan ComboBox

Membuat penanggalan dengan comboBox
pertama... lo bikin form dengan
1 label, dan 3 ComboBox

Sintaxnya nih...

Private Sub Form_Activate()
Combo1.Clear
For i = 1 To 31
If i < 10 Then
Combo1.AddItem "0" & i
Else
Combo1.AddItem i
End If
Next i

Combo2.Clear
For i = 1 To 12
If i < 10 Then
Combo2.AddItem "0" & i
Else
Combo2.AddItem i
End If
Next i

Combo3.Clear
For i = 2009 To Val(Format(Date, "yyyy"))
If i < 10 Then
Combo3.AddItem "0" & i
Else
Combo3.AddItem i
End If
Next i

Combo1.ListIndex = 0
Combo2.ListIndex = 0
Combo3.ListIndex = 0
End Sub

Terima Kasih