Private Sub t0_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) _
    Handles t0.MouseDown
        t0.DoDragDrop(t0.Text, DragDropEffects.Move)
    End Sub
 
    Private Sub t1_DragEnter(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) _
    Handles t1.DragEnter
        If (e.Data.GetDataPresent("Text")) Then
            e.Effect = DragDropEffects.Move 
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub
 
    Private Sub t1_DragDrop(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) _
    Handles t1.DragDrop
        t1.Text = e.Data.GetData("Text")
    End Sub