Public Class Form1
  Inherits System.Windows.Forms.Form

Vom Windows Form Designer generierter Code

  Const CtrlMask As Byte = 8
  Const Text1 As String = "Hallo Leut's!" & vbNewLine & _
                          "Mich freut's."
  Const Text2 As String = "Pipapo," & vbNewLine & _
                          "lach nicht so."

  Private Sub Form1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
    TextBox1.AllowDrop = True
    TextBox2.AllowDrop = True
    TextBox1.Text = Text1
    TextBox2.Text = Text2
  End Sub

  Private Sub TextBox1_MouseDown(ByVal sender As System.Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs) _
        Handles TextBox1.MouseDown
    If e.Button = MouseButtons.Left Then
      TextBox1.SelectAll()
      TextBox1.DoDragDrop(TextBox1.SelectedText, _
            DragDropEffects.Move Or DragDropEffects.Copy)
    End If
  End Sub

  Private Sub TextBox2_DragDrop(ByVal sender As System.Object, _
        ByVal e As System.Windows.Forms.DragEventArgs) _
        Handles TextBox2.DragDrop
    TextBox2.Text = e.Data.GetData(DataFormats.Text).ToString
    If (e.KeyState And CtrlMask) <> CtrlMask Then
      TextBox1.Text = ""
    End If
  End Sub

  Private Sub TextBox2_DragEnter(ByVal sender As System.Object, _
        ByVal e As System.Windows.Forms.DragEventArgs) _
        Handles TextBox2.DragEnter
    If (e.Data.GetDataPresent(DataFormats.Text)) Then
      If (e.KeyState And CtrlMask) = CtrlMask Then
        e.Effect = DragDropEffects.Copy
      Else
        e.Effect = DragDropEffects.Move
      End If
    Else
      e.Effect = DragDropEffects.None
    End If
  End Sub

  Private Sub TextBox2_MouseDown(ByVal sender As System.Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs) _
        Handles TextBox2.MouseDown
    If e.Button = MouseButtons.Left Then
      TextBox2.SelectAll()
      TextBox2.DoDragDrop(TextBox2.SelectedText, _
            DragDropEffects.Move Or DragDropEffects.Copy)
    End If
  End Sub

  Private Sub TextBox1_DragDrop(ByVal sender As System.Object, _
        ByVal e As System.Windows.Forms.DragEventArgs) _
        Handles TextBox1.DragDrop
    TextBox1.Text = e.Data.GetData(DataFormats.Text).ToString

    If (e.KeyState And CtrlMask) <> CtrlMask Then
      TextBox2.Text = ""
    End If
  End Sub

  Private Sub TextBox1_DragEnter(ByVal sender As System.Object, _
        ByVal e As System.Windows.Forms.DragEventArgs) Handles _
        TextBox1.DragEnter
    If (e.Data.GetDataPresent(DataFormats.Text)) Then
      If (e.KeyState And CtrlMask) = CtrlMask Then
        e.Effect = DragDropEffects.Copy
      Else
        e.Effect = DragDropEffects.Move
      End If
    Else
      e.Effect = DragDropEffects.None
    End If
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
    TextBox1.Text = Text1
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button2.Click
    TextBox2.Text = Text2
  End Sub

  Private Sub Button3_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button3.Click
    Me.Close()
  End Sub
End Class