A.Private Sub Command1_Click( )

Labe3.Caption=Str(Vs1(Label1.Captio*Val(Label2.Captio) 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