[الطالب]

سلام

جرب هذا الكود وعدل فيه

كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TrackBarTipValueSetup()
    End Sub

#Region "TrackBar ToolTipValue"
    Dim TrackBarTipValue As New Label
    Private Sub TrackBarTipValueSetup()
        ' TrackBar1 -----------------------------
        AddHandler TrackBar1.MouseMove, AddressOf TrackBarTip_MouseMove
        AddHandler TrackBar1.MouseLeave, AddressOf TrackBarTip_MouseLeave
        AddHandler TrackBar1.MouseDown, AddressOf TrackBarTip_MouseDown
        ' TrackBar2 -----------------------------
        'AddHandler TrackBar2.MouseMove, AddressOf TrackBarTip_MouseMove
        'AddHandler TrackBar2.MouseLeave, AddressOf TrackBarTip_MouseLeave
        'AddHandler TrackBar2.MouseDown, AddressOf TrackBarTip_MouseDown
        '========================================
        TrackBarTipValue.Visible = False
        TrackBarTipValue.Parent = Me
        TrackBarTipValue.BorderStyle = BorderStyle.FixedSingle
        TrackBarTipValue.BackColor = Color.Yellow
        TrackBarTipValue.AutoSize = True
        TrackBarTipValue.BringToFront()
    End Sub
    Private Sub TrackBarTip_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.X >= 13 And e.X <= sender.Width - 14 Then
            Dim tip As Integer = (((e.X - 13) / (sender.Width - 27)) * (sender.Maximum - sender.Minimum)) + sender.Minimum
            If tip >= sender.Minimum And tip <= sender.Maximum Then
                TrackBarTipValue.Text = tip
                TrackBarTipValue.Location = New Point(sender.Left + e.X - (TrackBarTipValue.Width / 2), sender.Top - TrackBarTipValue.Height)
                TrackBarTipValue.Visible = True
            End If
        End If
    End Sub
    Private Sub TrackBarTip_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)
        TrackBarTipValue.Visible = False
    End Sub
    Private Sub TrackBarTip_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.Button = Windows.Forms.MouseButtons.Left Then sender.Value = Val(TrackBarTipValue.Text)
    End Sub
#End Region

End Class

موفقين