A.Private Sub Command1_Click( )

Labe3.Caption=Str(Vs1(Label1.Caption)*Val(Label2.Caption))
End Sub
B.Private Sub Command1_Click( )
Labe3.Caption=Hscroll1.Value*Hscrol12.Value
End Sub
C.Private Sub Command1_Click( )
Labe3.Caption=Hscrol11*Hscrol12
End Sub
D.Private Sub Command1_Chek( )
Labe13.Caption=Hscrol11.Text*Hscrol12.Text
End Sub