Drag fra txtbox til txtbox

' --------------------------- Form1 ---------------------------
' 2 TextBox på din Form1 (Text2, Text1)
' Hold SHIFT nede og flyt Text2 over på Text1
' -------------------------------------------------------------
Option Explicit

Private Sub Form_Load()
  Text1.DragMode = 0
  Text2.DragMode = 0
End Sub

Private Sub Text1_DragDrop(Source As Control, X As Single, Y As Single)
  If TypeOf Source Is TextBox Then
    Text1.Text = Source.Text
  End If
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
  If Shift = 1 Then
    Text2.DragMode = 1
  End If
End Sub

Private Sub Text2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Text2.DragMode = 0
End Sub
' --------------------------- Form1 ---------------------------

ellers prøv at se lidt på den her:
http://vbhansen.dk/spm/703143/vbDrop.zip

Du er da oppe på de mærkeligste tidspunkter ;)
Men det virker perfekt. Tusind tak for hjælpen.

/Kasper

Ja jeg var ikke gået i seng på det tidspunkt :D

Tak for point..