Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Button1.MouseEnter
        RichTextBox1.Text = "Hi!"
    End Sub
 
    Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Button1.MouseLeave
        RichTextBox1.Text = ""
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist