VB-2 : Speed Program

When we move the scroll bar the km/hour changes from 1 to 100, and “STOP” will close the operation.

A)   Property :

Textbox                    :   NAME – text1   , Text-(should kept blank) Command Button 1  :  NAME -  Command1, CAPTION-Stop Horizontal scroll bar :  min – 0, max-100

B)   Attaching Code to the Object :

Private Sub Command1_Click() End End Sub

Private Sub HScroll1_Change() Text1.Text = Str(HScroll1.Value) + "km/hour" End Sub

Private Sub Text1_Change() End Sub

Back to Home   &  VB


===========================================