año:
Private Sub Form_Load()
For i = 1 To 12
Combo1.AddItem Format("28/" & i & "/1997", "mmmm")
Next
End Sub
en la propiedad Text del combobox lo ponen vacio, y al cargar el formulario les saldra asi:
Private Sub Form_Load()
For i = 1 To 12
Combo1.AddItem Format("28/" & i & "/1997", "mmmm")
Next
End Sub
en la propiedad Text del combobox lo ponen vacio, y al cargar el formulario les saldra asi:
0 comentarios:
Publicar un comentario