Private Sub Commandl_Click() Labe13.Caption=Str(Val(LabelCaptio*Val(Labe12.Capfio) End Sub Private Sub Commandl_Click() Labe13.Caption=HScro111.Value*HScro112.Value End Sub Private Sub Commandl_Cliek() Labe13.Caption=HScrolll*HScro112 End Sub Private Sub Commandl_Click() Labe13.Caption=HScro111.Text*HScro112.Text End Sub