[RESOLVED] Use of horizontal scroll bar

[SAVITH]

Am stuck with the problem here.Can any1 please help me out...
Text1.FontSize = HScroll1.Value
This statement in the program is giving me a problem.Do i have to set any properties of Hscollbar..The rest code is working fine..

[RhinoBull]

Try some thing as simple as this:

Option Explicit

Private Const MAX_SIZE As Long = 72
Private Const MIN_SIZE As Long = 6

Private Sub Form_Load()
    HScroll1.Min = MIN_SIZE
    HScroll1.Max = MAX_SIZE
    HScroll1.SmallChange = 2
    HScroll1.LargeChange = 6
    HScroll1.Value = Text1.Font.Size
End Sub

Private Sub HScroll1_Change()
    Text1.Font.Size = HScroll1.Value
End Sub

However, sample above is incomplete - what you need also is resize textbox itself (I left this part for you to figure).

[SAVITH]

Thank u