ERFORDERLICHE OBJEKTE

   1 Textbox (Text1)
 FORM-CODE

   Private Sub mnuHallo_Click()
      MsgBox "HALLO !"
   End Sub

   Private Sub Text1_MouseDown(Button As Integer, _
      Shift As Integer, X As Single, Y As Single)
      'rechte Maustaste ?
      If Button = 2 Then
         Text1.Enabled = False
         PopupMenu Form1!mnuTest
         Text1.Enabled = True
      End If
   End Sub