buenisimo, gracias por todo ahora voy a leerme esos manuales, chau, saludos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarOption Explicit
Dim indice As Integer
Private Sub cmd_Click()
Dim a
a = cmb.ListIndex
indice = indice + 1
If cmb.List(a) = "menu1" Then
Load mnua(indice)
mnua(indice).Caption = txt.Text
ElseIf cmb.List(a) = "menu2" Then
Load mnub(indice)
mnub(indice).Caption = txt.Text
ElseIf cmb.List(a) = "menu3" Then
Load mnuc(indice)
mnuc(indice).Caption = txt.Text
End If
End Sub