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