Private Sub t1_DragDrop(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs)
        If CType(sender, TextBox) Is CType(e.Data.GetData(GetType(TextBox)), _
        TextBox) Then
            CType(sender, TextBox).Text = CType(e.Data.GetData(GetType( _
            TextBox)), TextBox).Text
        Else
            CType(sender, TextBox).Text = CType(e.Data.GetData(GetType( _
              TextBox)), TextBox).Text
            CType(e.Data.GetData(GetType(TextBox)), TextBox).Text = String.Empty
        End If
 
        CType(sender, TextBox).Focus() ' sieht besser aus
    End Sub