Циклическое изменение переменной по нажатию кнопки

Dim i As Integer
Private Sub a(pos As Integer)
    If pos = 1 Then
        Line (100, 100)-(100, 600) 'л
        Line (1000, 100)-(1000, 600) 'п
        Line (100, 100)-(1000, 100) 'в
        Line (100, 600)-(1000, 600) 'н
    End If
    
        If pos = 2 Then
            Line (1000, 100)-(1000, 600) 'п
            Line (1000, 100)-(1900, 100) 'в
            Line (1000, 600)-(1900, 600) 'н
            Line (1900, 100)-(1900, 600) 'п
        End If
        
            If pos = 3 Then
                Line (1000, 600)-(1000, 1100) 'л
                Line (1000, 600)-(1900, 600) 'в
                Line (1900, 600)-(1900, 1100) 'п
                Line (1000, 1100)-(1900, 1100) 'н
            End If
            
                If pos = 4 Then
                    Line (100, 600)-(100, 1100) 'л
                    Line (1000, 600)-(1000, 1100) 'п
                    Line (100, 600)-(1000, 600) 'в
                    Line (100, 1100)-(1000, 1100) 'н
                End If
End Sub
Private Sub Command1_Click()
Me.Cls
?
a i
End Sub

Private Sub Command1_Click()
static i&
Me.Cls
a (i mod 4)+1
i=i+1
End Sub

Private Sub Command2_Click()
Static i%
Me.Cls
If i = 4 Then i = 0
Line (100 - (i = 1 Or i = 2) * 900, 100 - (i>1) * 500)-(1000 - (i = 1 Or i = 2) * 900, 600 - (i>1) * 500), , B
i = i + 1
End Sub