A.Private Sub Command1_Click() Label3.Caption=Str(Val(Label1.Captio*Val(Label2.Captio) End Sub B.Private Sub Command1_Click() Label3.Caption=HScroll1.Value*HScroll2.Value End Sub C.Private Sub Command1_Click() Label3.Caption=HScroll1*HScroll2 End Sub D.Private Sub Command1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text End Sub