'  Benötigt werden:
'1 Frame         = Frame1
'1 Label         = Label1
'1 Label         = Label2
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
 If Button = vbRightButton Then
   Frame1.Visible = True
 Else
   Frame1.Visible = False
 End If
End Sub
 
Private Sub Form_Load()
   Frame1.Visible = False
End Sub
 
Private Sub Label1_Click()
   MsgBox "Hallo das klappt...", 64, "Hurra!"
End Sub
 
Private Sub Label2_Click()
   Unload Me
End Sub
 
'etc.