'Beispiel: VB .Net - Text aus der Zwischenablage in die TextBox einfuegen die den Fokus hat ' Option Explicit On Option Strict On Public Class Form1 Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles ToolStripButton1.Click SetText(True) End Sub Private Sub SetText(Optional ByVal Append As Boolean = False) Dim tbb As TextBoxBase = TryCast(Me.ActiveControl, TextBoxBase) If tbb IsNot Nothing Then If Not Append Then ActiveControl.Text = Clipboard.GetText() Else ActiveControl.Text &= Clipboard.GetText() End If End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load With Me .CenterToScreen() .TextBox1.Focus() End With End Sub End Class