Option Explicit
 
Private Breite%
 
Private Sub Form_Load()
 
Breite = 20
Picture1.ScaleMode = vbPixels
Picture1.AutoRedraw = True
 
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
 
With Picture1
  .DrawWidth = 1
  Picture1.Line (X - Breite / 2, Y - Breite / 2)-Step(Breite, Breite), vbBlue, _
    BF
  .DrawWidth = Breite
  .CurrentX = X
  .CurrentY = Y
End With
 
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
 
If Button = vbLeftButton Then
  Picture1.Line -(X, Y), vbBlue, BF
End If
 
End Sub

Gruss,

Zardoz