Moving Pacman

Public Class Form1

    Private m_Actor As PacmanActor

    Private Sub btStart_Click(sender As Object, e As EventArgs) Handles btStart.Click
        m_Actor = New PacmanActor(pnField)
        m_Actor.StartUp(New Point(40, 30), New MovementRule())
        tmrTimer.Enabled = True
    End Sub

    Private Sub tmrTimer_Tick(sender As Object, e As EventArgs) Handles tmrTimer.Tick
        m_Actor.Move()
        If m_Actor.Done = True Then
            tmrTimer.Enabled = False
            MsgBox("Done!")
            m_Actor.ShutDown()
        End If
    End Sub
End Class