esempio copiato dal wiki
' Dichiariamo il Menu principale:
Private mn As Menu
Public Sub Form_Open()
' Dichiariamo anche le sotto-voci del Menu:
Dim mn1 As Menu
Dim mn2 As Menu
Dim mn3 As Menu
Dim mn4 As Menu
' impostiamo il Menu principale, impostando come "contenitore" il Form:
mn = New Menu(Me)
' gli diamo il testo che sarà mostrato:
mn.Caption = "File"
' attribuiamo al Menu principale le sue sotto-voci,
' alle quali diamo il testo che sarà mostrato,
' e come "contenitore" il Menu principale:
mn1 = New Menu(mn, False)
With mn1
' Facciamo mostrare la denominazione della sotto-voce mediante ".Caption":
.Caption = "Nuovo"
.Name = "Nuovo"
End With
mn2 = New Menu(mn, False)
With mn2
.Caption = "Apri"
.Name = "Apri"
End With
mn3 = New Menu(mn, False)
With mn3
.Caption = "Salva con nome..."
.Name = "Salva con nome..."
End With
mn4 = New Menu(mn, False)
With mn4
.Caption = "Esci"
.Name = "Esci"
End With
End
Public Sub mn1_Click()
Print "funziona"
' qui fa qualcosa...
End
il problema è che non funziona...
cioè se si fa click su nuovo (mn1) non printa funziona...
:rolleyes: :rolleyes: ??? :-\ :-\