Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        m_Pos.X = 100
        m_Pos.Y = 450
        m_iControl = 0
 
        Dim iAction As Integer
        Dim arAction(5) As String
        arAction(0) = "0"
        arAction(1) = "1"
        arAction(2) = "2"
        arAction(3) = "3"
        arAction(4) = "4"
        arAction(5) = "5"
 
        For Each iAction In arAction
            m_iAction = iAction
            Refresh()
        Next
    End Sub

Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        m_gPathLandscape.StartFigure()
        If m_iAction = 0 Then
            clLandscape = incLandscape.DrawLandscape(0)
            e.Graphics.DrawRectangle(New Pen(clLandscape), 0, 0, 5, 5)
            e.Graphics.FillRectangle(Brushes.Green, 0, 0, 5, 5)
        End If
        If m_iAction = 1 Then
            clLandscape = incLandscape.DrawLandscape(1)
            e.Graphics.DrawRectangle(New Pen(clLandscape), 30, 30, 5, 5)
            e.Graphics.FillRectangle(Brushes.Green, 30, 30, 5, 5)
        End If
        e.Dispose()
        m_gPathLandscape.CloseFigure()
 End Sub