Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal x1 As _
  Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long) As Long
 
Private XD!, YD!
 
Private Sub Form_Load()
  Picture1.ScaleMode = vbPixels
  Picture1.ForeColor = vbRed
  Picture1.DrawWidth = 3
  Picture1.AutoRedraw = True
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
  XD = X
  YD = Y
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
  Dim x1!, y1!, x2!, y2!
 
  If Button = vbLeftButton Then
    x1 = IIf(X < XD, X, XD)
    y1 = IIf(Y < YD, Y, YD)
    x2 = IIf(X < XD, XD, X)
    y2 = IIf(Y < YD, YD, Y)
    Picture1.Cls
    Call Ellipse(Picture1.hdc, x1, y1, x2, y2)
  End If
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
  Set Picture1.Picture = Picture1.Image
End Sub

Gruss,

Zardoz