[vb6] popupmenu

[Magicolotto]

Private Sub MIOFORM_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
PopupMenu miomenu
End If
End Sub

con questo codice si apre un menuquando clicco col tasto destro sul mio form


mi apre solo un menu', io vorrei aggiungere tutti i menu che mi ritrovo nella mia form??




e chiaro???