Tja igen..
Hur får man bort den lilla "värdesruta" som kommer upp när man ändrar sliderns värde.....
hoppas ni fattar vad jag menar..
//PeRsA

Hej
Var tvungen att kolla, det går tydligen inte !

mvh
Sven

<code>
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

Private Const WM_USER = &H400&
Private Const TTM_ACTIVATE = &H401
Private Const TBM_GETTOOLTIPS = &H41E

Private Sub Form_Load()
Dim lngDummy As Long
lngDummy = SendMessage(Slider1.hWnd, TBM_GETTOOLTIPS, 0&, 0&)
lngDummy = SendMessage(lngDummy, TTM_ACTIVATE, False, 0&)
End Sub


</code>