Dim lngKreisX1, lngKreisX2, lngKreisY1, lngKreisY2
 
Private Sub picZeichnen_MouseDown (ByVal Button As Integer, ByVal SHift As _
  Integer, ByVal X As Single, ByVal Y As Single)
  lngKreisX1 = CLng(X)
  lngKreisY1 = CLng(Y)
End Sub
 
Private Sub picZeichnen_MouseUp (ByVal Button As Integer, ByVal SHift As _
  Integer, ByVal X As Single, ByVal Y As Single)
  lngKreisX2 = CLng(X)
  lngKreisY2 = CLng(Y)
 
  With picZeichen
    .Circle (lngKreisX2 - lngKreisX1) / 2, _
      (lngKreisY2 - lngKreisY1) / 2, _
      (lngKreisX2 -lngKreisX) / 2
  End With
End Sub