Public Class DragObject ' Zeile 13
  Public DragElement As Panel ' Zeile 14
  Public OffsetTop As Long ' Zeile 15
  Public OffsetLeft As Long ' Zeile 16
  Public IsDragStarted As Boolean ' Zeile 17
  Public Sub New(ByVal Obj As Panel) ' Zeile 18
    DragElement = Obj ' Zeile 19
    OffsetTop = Cursor.Y - (Me.Top + DragElement.Top) ' Zeile 20
    OffsetLeft = Cursor.X - (Me.Left + DragElement.Left) ' Zeile 21
  End Sub ' Zeile 22
End Class ' Zeile 23