' Basic Programming
' Ch. 6 Demo Program #2
' Written by Mr. Minich
' purpose - to illustrate the use of general procedures

Option Explicit

Private Sub Command1_Click()
   Call MoveTo(Val(Text1.Text), Val(Text2.Text))
End Sub

Private Sub MoveTo(intX As Integer, intY As Integer)
   Command1.Left = intX
   Command1.Top = intY
End Sub