Computer Programming Concepts and Visual Basic David I. Schneider

Public Function X() As Integer
X = m_imgPlane.Left
End Function
Public Function Y() As Integer
Y = m_imgPlane.Top
End Function
Public Function W() As Integer
W = m_imgPlane.Width
End Function
Public Function H() As Integer
H = m_imgPlane.Height
End Function
Public Sub Fly(ByVal dir As String, ByVal Height As Integer, ByVal Width As
Integer)
m_imgPlane.Visible = True
‘Meanings of variables
‘dir Direction of airplane (Right, Up, or Down)
‘Height Height of form
‘Width Width of form
If dir = “Up” Then
‘Prevent airplane from rising off the screen.
If (m_imgPlane.Top - 500)>= 0 Then
m_imgPlane.Top = m_imgPlane.Top - 500
End If
ElseIf dir = “Down” Then
‘Prevent airplane from falling off the screen.
If (m_imgPlane.Top + m_imgPlane.Height + 500)