Dim S, t, v
Sub Division()
     S = Val(Sheets("d").EditBoxes("a1").Text)
     t = Val(Sheets("d").EditBoxes("a2").Text)
     v = S / t
     Sheets("d").Labels("a3").Caption = v
End Sub
Sub Scroll()
     Sheets("d").EditBoxes("a1").Text = Sheets("d").ScrollBars("a4").Value
End Sub
Sub Spin()
     Sheets("d").EditBoxes("a2").Text = Sheets("d").Spinners("a5").Value
End Sub
Sub Save()
     With Sheets("Лист1")
         .Cells("1,1").Value = "Швидкість"
         .Cells("2,1").Value = v
         .Cells("3,1").Value = "Км/Год"
     End With
End Sub
Sub ini()
     Sheets("d").ScrollBars("a4").Min = 1
     Sheets("d").ScrollBars("a4").Max = 100
     Sheets("d").Spinners("a5").Min = 1
     Sheets("d").Spinners("a5").Max = 100
     Sheets("d").Show
End Sub