[sooriaty03]

أخي الكريم وجدت الحل
اتبع هذه الخطوات
أولا
من حصائص الأداة ToolTip1
قم بتغيير القيمة للخاصية OwnerDraw إلى True
ثانيا قم بإضافة هذا الكود

كود :

Private Sub ToolTip1_Draw(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawToolTipEventArgs) Handles ToolTip1.Draw
        Dim t As ToolTip = CType(sender, ToolTip)
        Using backBrush As Brush = New SolidBrush(t.BackColor)
            e.Graphics.FillRectangle(backBrush, e.Bounds)
        End Using
        Using textBrush As Brush = New SolidBrush(t.ForeColor)
            Using sf As StringFormat = New StringFormat
                sf.Alignment = StringAlignment.Center
                sf.LineAlignment = StringAlignment.Center
                e.Graphics.DrawString(e.ToolTipText, Me.Font, textBrush, e.Bounds, sf)
            End Using
        End Using
    End Sub

وإذا أردت أن تختصر الكود

كود :

Private Sub ToolTip1_Draw(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawToolTipEventArgs) Handles ToolTip1.Draw
        Dim backBrush As Brush = New SolidBrush(sender.BackColor)
        e.Graphics.FillRectangle(backBrush, e.Bounds)
        Dim textBrush As Brush = New SolidBrush(sender.ForeColor)
        Dim sf As StringFormat = New StringFormat
        sf.Alignment = StringAlignment.Center
        sf.LineAlignment = StringAlignment.Center
        e.Graphics.DrawString(e.ToolTipText, Me.Font, textBrush, e.Bounds, sf)
    End Sub

الآن قم بتغيير الألوان كما يحلو لك من خلال خصائص الأداة وسيعمل بإذن الله