• Home
 · 
• Miscellaneous
 · 
• Dynamic menu generater during execution

Dynamic menu generater during execution

Dynamic menu generater during execution

Rate Dynamic menu generater during execution

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Command1_Click()

RT = RT + 1
Load MNURT(RT)
MNURT(RT).Caption = "DYNAMIC MENU ITEMS" & Str(RT)
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
   PopupMenu MNUFILE
End If
End Sub

Private Sub MNUEXIT_Click()
End
End Sub

Private Sub MNUOPEN_Click()
MsgBox "sorry you cannot open any file now"
MNUEXIT.Enabled = True

End Sub