Code: Select all
Private Declare Function SendMessage _
Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Const TBM_SETTOOLTIPS = &H41D
Private Sub Form_Load()
SendMessage Slider1.hwnd, TBM_SETTOOLTIPS, 0, ByVal 0
End Sub