Dim erstemal as boolean
 
Private Sub Option3_Click()
  erstemal = True
End Sub
 
Private Sub Option4_Click()
erstemal = True
End Sub
 
Private Sub Option5_Click()
erstemal = True
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
 
  farbe = Zeichenform.Picture2.BackColor
   'Auswahl Zeichenwerkzeug
  If Zeichenform.Option3.Value Then
    Picture1.PSet (X, Y), farbe
    erstemal = True
  End If
 
  If Zeichenform.Option4.Value Then
    If erstemal Then
        x1 = X
        y1 = Y
        erstemal = False
    Else
        Picture1.Line (x1, y1)-(X, Y), farbe
        erstemal = True
    End If
  End If
 
  If Zeichenform.Option5.Value Then
    If erstemal Then
        x1 = X
        y1 = Y
        erstemal = False
    Else
        dx = x1 - X
        dy = y1 - Y
        radius = Sqr(dx * dx + dy * dy)
        Picture1.Circle (x1, y1), radius, farbe
        erstemal = True
    End If
  End If
 
    End If
End Sub