Private Sub Form_Load()
  Label1.Top = Slider1.Top - Label1.Height
End Sub
 
Private Sub Slider1_MouseUp(Button As Integer, Shift As Integer, x As Single, y _
  As Single)
  Label1.Visible = False
End Sub
 
Private Sub Slider1_MouseDown(Button As Integer, Shift As Integer, x As Single, _
  y As Single)
 showQuickInfo Button, x, y
End Sub
 
Private Sub Slider1_MouseMove(Button As Integer, Shift As Integer, x As Single, _
  y As Single)
 showQuickInfo Button, x, y
End Sub
 
Private Sub showQuickInfo(Button As Integer, x As Single, y As Single)
  If Button = vbLeftButton And x < Slider1.Width Then
    Label1.Visible = True
    Label1.Caption = Format(Slider1.Value / 10, "0.0")
    Label1.Left = Slider1.Left + x
  Else
    Label1.Visible = False
  End If
End Sub