Option Explicit
    Dim strAntwort As String
 
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
 
End Sub
 
Private Sub Command_Click()
    If strAntwort <> "P" Then
        strAntwort = "P"
    Else
        strAntwort = "N"
    End If
End Sub
 
Private Sub Form_Load()
 
End Sub