Se ho capito bene la tua domanda il codice dovrebbe essre questo:

codice:
Private Sub Form_Load()
Dim strA(24) As String
For i = 0 To 23
strA(i) = Now + (i - 12) * 30
strA(i) = Format(strA(i), "mm/yyyy")
Combo1.AddItem strA(i)
Next i
End Sub
Ciao.