File: ...\Samples\Vfp98\Solution\OLE\Slider.scx
This sample illustrates using the Slider control and the StatusBar control.
Code in the Scroll event of each slider control sets the Value property of the other controls.
#DEFINE TXT_LOC "slider value: "
THISFORM.Olecontrol2.Panels(2).Text = TXT_LOC + ALLTRIM(STR(THIS.value))
THIS.Parent.spn1.Value = THIS.Value
THIS.Parent.oleV.Value = THIS.Value
The StatusBar Control Properties dialog box makes setting status bar properties easy.
To open the StatusBar Control Properties dialog, choose StatusBar Control Properties from the shortcut menu of a StatusBar Control.