Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
        If e.Button = MouseButtons.Right Then
            ' Jetzt neues Formular, mit Textfeld und richtiger Größe, unterhalb 
            ' der Maus, einblenden.
        End If
    End Sub

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)