Hi, I just found the other thread in which we have another solution, I post it here for other people.
put this code on Open event of your slider
declare sub setVertical lib "Cocoa" selector "setVertical:" (windowRef as integer, id as Boolean)
setVertical(me.Handle,true)