Option Explicit
 
Private Declare Function ShowCursor Lib "user32" _
    (ByVal bShow As Long) As Long
    Private X_a!, Y_a!
Private X_aktuell!, Y_aktuell!
 
Private Sub Form_Click()
  Static CursorAn As Boolean
 
  CursorAn = Not CursorAn
 
  If CursorAn Then
    HideMouse
  Else
    ShowMouse
  End If
End Sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
X_a = X
Y_a = Y
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
      X As Single, Y As Single)
  Static X1%, Y1%
  Me.Cls
  Me.Line (X, 0)-(X, Me.ScaleHeight)
  Me.Line (0, Y)-(Me.ScaleWidth, Y)
  Me.Circle (X, Y), 100
  'Me.Circle (X, Y), 200
  'Me.Circle (X, Y), 240
  Me.Caption = "Maus-Cursor als Fadenkreuz: X=" & X & " ;  Y=" & Y
 
  If Button = vbLeftButton Then
 
  Form1.Cls
  Form1.Line (X_a, Y_a)-(X, Y), vbRed
  X_aktuell = X
  Y_aktuell = Y
End If
End Sub
 
Private Sub HideMouse()
  While ShowCursor(False) >= 0
  Wend
End Sub
 
Private Sub ShowMouse()
  While ShowCursor(True) < 0
  Wend
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  ShowMouse
  Unload Me
  End
End Sub
 
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As _
  Single)
With Form1
  .Cls
  .AutoRedraw = True
 
  Form1.Line (X_a, Y_a)-(X, Y), vbBlue
  .AutoRedraw = False
 Label1.Caption = Format(Form1.ScaleX(Sqr((X_a - X) ^ 2 + (Y_a - Y) ^ 2), _
   vbPixels, vbCentimeters), "0.00") & " cm"
End With
End Sub

Wer alles wei? kann sich ja zur?ck legen... und schlau tun ... ich geh?re nicht dazu...*lol*