[sooriaty03]

وعليكم السلام ورحمة الله وبركاته
تفضل أخي هذين المثالين

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim toolTip1 As New ToolTip()
        toolTip1.SetToolTip(Me.Button1, "My button1")
    End Sub

كود :

Dim Tooltip1 As New ToolTip

    Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
        Tooltip1.ToolTipIcon = ToolTipIcon.Info
        Tooltip1.Show("My Button1", Button1, Button1.Width, Button1.Height)
    End Sub

    Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
        Tooltip1.Hide(Button1)
    End Sub

بالتوفيق