[سؤال] عن مسألة عرض توضيح على أداة كما في youtube

كود :

#Region " ToolTip "

    Shadows ToolTipFont As New Font("Times New Roman", 14, FontStyle.Bold) '<<<<<<<<<<<< خط الكتابة

    Shadows ToolTipBackColor As Color = Color.Green '<<<<<<<<<<<< لون الخلفية

    Shadows ToolTipForeColor As Color = Color.White '<<<<<<<<<<<< لون الكتابة

    Dim ToolTip As New ToolTip

    Dim ToolTipHPadding As Byte = 10

    Dim ToolTipVPadding As Byte = 10

    Private Sub ToolTip1_Popup(ByVal sender As Object, ByVal e As PopupEventArgs) Handles ToolTip1.Popup

        e.Cancel = True

        ToolTip.OwnerDraw = True

        RemoveHandler ToolTip.Draw, AddressOf ToolTip_Draw

        AddHandler ToolTip.Draw, AddressOf ToolTip_Draw

        RemoveHandler ToolTip.Popup, AddressOf ToolTip_Popup

        AddHandler ToolTip.Popup, AddressOf ToolTip_Popup

        RemoveHandler e.AssociatedControl.MouseLeave, AddressOf TooTip_MouseLeave

        AddHandler e.AssociatedControl.MouseLeave, AddressOf TooTip_MouseLeave

        Dim sz As Size = TextRenderer.MeasureText(ToolTip1.GetToolTip(e.AssociatedControl), ToolTipFont)

        Dim pt As New Point(-((sz.Width - e.AssociatedControl.Width) / 2) - (ToolTipHPadding / 2), -(sz.Height + ToolTipVPadding + 2))

        ToolTip.Show(ToolTip1.GetToolTip(e.AssociatedControl), e.AssociatedControl, pt, ToolTip1.AutoPopDelay)

    End Sub

    Private Sub TooTip_MouseLeave(ByVal sender As Object, ByVal e As EventArgs)

        ToolTip.Hide(sender)

    End Sub

    Private Sub ToolTip_Popup(ByVal sender As Object, ByVal e As PopupEventArgs)

        e.ToolTipSize = TextRenderer.MeasureText(ToolTip1.GetToolTip(e.AssociatedControl), ToolTipFont)

        e.ToolTipSize = Size.Add(e.ToolTipSize, New Size(ToolTipHPadding, ToolTipVPadding))

    End Sub

    Private Sub ToolTip_Draw(ByVal sender As Object, ByVal e As DrawToolTipEventArgs)

        If e.ToolTipText.Trim = "" Then

            ToolTip.Hide(sender)

            Exit Sub

        End If

        Dim format As New StringFormat(StringFormatFlags.NoWrap)

        If Me.RightToLeft Then format.FormatFlags += StringFormatFlags.DirectionRightToLeft

        format.Alignment = StringAlignment.Center

        format.LineAlignment = StringAlignment.Center

        e.Graphics.Clear(ToolTipBackColor)

        e.Graphics.DrawString(e.ToolTipText, ToolTipFont, New SolidBrush(ToolTipForeColor), e.Bounds, format)

    End Sub

#End Region