VB Code:
  1. 'This example uses the a Textbox named Text1
  2. Dim tmpX as Integer
  3. Dim tmpY as Integer
  4. Dim Down as Byte
  5. Private Sub Text1_MouseDown(X as Integer, Y as Integer)
  6. tmpX = X
  7. tmpY = Y
  8. Down = 1
  9. End Sub
  10. Private Sub Text1_MouseMove(X as Integer, Y as Integer)
  11. If Down = 1 Then
  12. Text1.Left = Text1.Left + (X - tmpX)
  13. Text1.Top = Text1.Top + (Y - tmpY)
  14. EndIf
  15. End Sub
  16. Private Sub Text1_MouseUp(X as Integer, Y as Integer)
  17. Down = 0
  18. End Sub