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

Option Explicit

Private Sub Command1_Click()
   Call MakeSound(4)
   Call ChangeColor()
   Call Gravity(Command1)
End Sub

Private Sub MakeSound(intNum As Integer)
   Dim J As Integer

   For J = 1 To intNum
      Beep
   Next J

End Sub

Private Sub ChangeColor()
   Form1.BackColor = vbRed
End Sub

Private Sub Gravity(cmdCommand As CommandButton)
   cmdCommand.Top = Form1.ScaleHeight - cmdCommand.Height
End Sub