Private Alto as integer
Private Largo as integer
Private Aux as Double
 
Private Sub Form_Initialize()
    Me.Visible = False
    Alto = Me.Height
    Largo = Me.Width
    Aux = 10
    Timer1.interval = 10
End Sub
 
Private Sub Timer1_Timer()
    Me.Visible = True
    Aux = Aux - (Aux / 10)
    Me.Height = Alto / Aux
    Me.Width = Largo / Aux
    If Aux < 1 Then
        Me.Height = Alto
        Me.Width = Largo 
        Timer1.Interval = 0
        Timer1.Enabled = False
    End If
End Sub

Private Function Cuenta_Circular7913(N&, M() As Integer, TIPO As Boolean)

Cuenta_Circular7913(2, Matriz, Verdadero)   :
    7   1   9
    4   0   2
    1   3   3

Cuenta_Circular7913(4, Matriz, Verdadero)   :
    7   1   2   3   9
    12  7   13  9   4
    11  16  0   14  5
    10  1   15  3   6
    1   9   8   7   3

Cuenta_Circular7913(6, Matriz, Verdadero)   :
    7   1   2   3   4   5   9
    20  7   21  22  23  9   6
    19  32  7   33  9   24  7
    18  31  36  0   34  25  8
    17  30  1   35  3   26  9
    16  1   29  28  27  3   10
    1   15  14  13  12  11  3

Cuenta_Circular7913(8, Matriz, Verdadero)   :
    7   1   2   3   4   5   6   7   9
    28  7   29  30  31  32  33  9   8
    27  48  7   49  50  51  9   34  9
    26  47  60  7   61  9   52  35  10
    25  46  59  64  0   62  53  36  11
    24  45  58  1   63  3   54  37  12
    23  44  1   57  56  55  3   38  13
    22  1   43  42  41  40  39  3   14
    1   21  20  19  18  17  16  15  3

Cuenta_Circular7913(2, Matriz, Falso)   :
    7   1   9
    4   0   2
    1   3   3

Cuenta_Circular7913(4, Matriz, Falso)   :
    7   1   2   3   9
    15  7   4   9   5
    14  16  0   8   6
    13  1   12  3   7
    1   11  10  9   3

Cuenta_Circular7913(6, Matriz, Falso)   :
    7   1   2   3   4   5   9
    32  7   6   7   8   9   10
    31  35  7   9   9   15  11
    30  34  36  0   18  16  12
    29  33  1   27  3   17  13
    28  1   26  25  24  3   14
    1   23  22  21  20  19  3

Cuenta_Circular7913(8, Matriz, Falso)   :
    7   1   2   3   4   5   6   7   9
    55  7   8   9   10  11  12  9   17
    54  60  7   13  14  15  9   24  18
    53  59  63  7   16  9   29  25  19
    52  58  62  64  0   32  30  26  20
    51  57  61  1   48  3   31  27  21
    50  56  1   47  46  45  3   28  22
    49  1   44  43  42  41  40  3   23
    1   39  38  37  36  35  34  33  3

Private Declare Function GetAsyncKeyState _
    Lib "user32" ( _
        ByVal vKey As Long) As Integer
 
Dim CT As Integer
 
 
Private Sub ATAQUES_Timer()
Dim FLAG3 As Boolean
FLAG3 = False
Randomize
    For X = 4 To 7
        If BALA(X).Visible = False And FLAG3 = False Then
        FLAG3 = True
        BALA(X).Top = 0
        BALA(X).Left = 120 + Int(Rnd() * 7560)
        BALA(X).Visible = True
        End If
    Next
End Sub
 
Private Sub MOVER_BALAS_Timer()
    For X = 0 To 3
        'MUEVE LAS BALAS
        If BALA(X).Visible = True Then BALA(X).Top = BALA(X).Top - 120
        'SI SE VA DE LA PANTALLA LA OCULTA
        If BALA(X).Top < 0 Then BALA(X).Visible = False
        'VERIFICA GOLPES BAJOS
        If BALA(X).Top = 1680 Then
            For Y = 22 To 25
                If ENEMIGO(Y).Visible = True Then
                    If BALA(X).Left >= ENEMIGO(Y).Left And BALA(X).Left < ENEMIGO(Y).Left + ENEMIGO(Y).Width Then
                        ENEMIGO(Y).Visible = False
                        BALA(X).Visible = False
                        BALA(X).Top = -5
                    End If
                End If
            Next
        End If
        'VERIFICA GOLPES MEDIOS
        If BALA(X).Top = 1080 Then
            For Y = 11 To 21
                If ENEMIGO(Y).Visible = True Then
                    If BALA(X).Left >= ENEMIGO(Y).Left And BALA(X).Left < ENEMIGO(Y).Left + ENEMIGO(Y).Width Then
                        ENEMIGO(Y).Visible = False
                        BALA(X).Visible = False
                        BALA(X).Top = -5
                    End If
                End If
            Next
        End If
        'VERIFICA GOLPES ALTOS
        If BALA(X).Top = 480 Then
            For Y = 0 To 10
                If ENEMIGO(Y).Visible = True Then
                    If BALA(X).Left >= ENEMIGO(Y).Left And BALA(X).Left < ENEMIGO(Y).Left + ENEMIGO(Y).Width Then
                        ENEMIGO(Y).Visible = False
                        BALA(X).Visible = False
                        BALA(X).Top = -5
                    End If
                End If
            Next
        End If
    Next
    For X = 4 To 7
        'MUEVE LAS BALAS
        If BALA(X).Visible = True Then BALA(X).Top = BALA(X).Top + 120
        'OCULTA SI SE VA DE FOCO
        If BALA(X).Top > 5700 Then BALA(X).Visible = False
        'VERIFICA GOLPES CON LA NAVE
        If BALA(X).Top = 5280 Then
            If BALA(X).Left >= NAVE.Left And BALA(X).Left < NAVE.Left + NAVE.Width Then
                VIDAS.Caption = Str(Val(VIDAS.Caption) - 1)
                If Val(VIDAS.Caption) = 0 Then
                    MsgBox "PERDISTE"
                End
                End If
            End If
            BALA(X).Visible = False
            BALA(X).Top = -5
        End If
    Next
End Sub
 
Private Sub MOVER_NAVES_Timer()
Dim FLAG2 As Boolean
    CT = CT + 1
    If CT < 16 Then
        For X = 0 To 25
            ENEMIGO(X).Left = ENEMIGO(X).Left + 80
        Next
    ElseIf CT < 31 Then
        For X = 0 To 25
            ENEMIGO(X).Left = ENEMIGO(X).Left - 80
        Next
    ElseIf CT = 31 Then CT = 0
    End If
    FLAG2 = False
    For X = 0 To 25
        If ENEMIGO(X).Visible = True Then FLAG2 = True
    Next
    If FLAG2 = False Then
        MsgBox "GANASTE"
        End
    End If
End Sub
 
Private Sub TECLAS_Timer()
        If GetAsyncKeyState(32) = -32767 Then Call DISPARO 'BARRA ESPACIADORA
        If GetAsyncKeyState(37) = -32767 Then Call IZQUIERDA 'FLECHA IZ
        If GetAsyncKeyState(39) = -32767 Then Call DERECHA 'FLECHA DER
End Sub
 
Private Sub DISPARO()
Dim FLAG As Boolean
FLAG = False
    For X = 0 To 3
        If BALA(X).Visible = False And FLAG = False Then
            FLAG = True
            BALA(X).Left = NAVE.Left + 160
            BALA(X).Top = 5160
            BALA(X).Visible = True
        End If
    Next
End Sub
 
Private Sub IZQUIERDA()
If NAVE.Left >= 80 Then
    NAVE.Left = NAVE.Left - 80
End If
End Sub
Private Sub DERECHA()
If NAVE.Left <= 7320 Then
    NAVE.Left = NAVE.Left + 80
End If
End Sub