Attribute VB_Name = "EnemyTankProperty"
Type EnemyTankProperties
    ActiveDirection As Integer
    Left As Integer
    Top As Integer
End Type

Public ETank(50) As EnemyTankProperties

Public Function ControlEnemyTank(TankFigure As Integer)
    For tf = 0 To TankFigure
        
    Next tf
End Function