Dim X As Variant
 
X = CDec(0.000000000000001)
MsgBox X

'Lege eine Picturebox und ein Shape in die Form
Option Explicit
Private XPos As Integer, YPos As Integer
 
 
Private Sub Form_Load()
  Me.ScaleMode = vbPixels
  Picture1.Move 10, 10, 400, 300
  Picture1.ScaleMode = vbPixels
  Picture1.BackColor = vbBlue
  Shape1.Visible = False
  Shape1.Shape = 0
  Set Shape1.Container = Picture1
  Shape1.BorderColor = vbWhite
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
  XPos = X
  YPos = Y
  Shape1.Move X, Y, 1, 1
  Shape1.Visible = True
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
  If Button = vbLeftButton Then
    Shape1.Move IIf(XPos < X, XPos, X), IIf(YPos < Y, YPos, Y), _
    Abs(XPos - X) + 1, Abs(YPos - Y) + 1
  End If
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
  MsgBox "X-Pos=" & Shape1.Left & vbCr & "Y-Pos=" & Shape1.Top & vbCr & _
  "Breite=" & Shape1.Width & vbCr & "Höhe=" & Shape1.Height, , "Rahmen"
End Sub