Hide slider control tool tip

[Cyclops]

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