Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
Picture1.CurrentX = X
Picture1.CurrentY = Y
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), vbBlack
End Sub

  SavePicture Picture1.Image, "C:\TestBild.bmp"