listindex özelliğini kullanırsan istedigini alırsın.
Private Sub Form_Load()
If Month(Date) > 1 Then
Combo1.ListIndex = Month(Date) - 2
Else
Combo1.ListIndex = 11
End If
End Sub
#2
<<< 10-HAGİ-10 >>>
