Asteroids Source code in VB.NET and Csharp

Public Class Cuadrado
    Inherits Estructura

    'Poligono
    Private cuadrop As Poligono

    'Constructor del objeto. En este caso un cuadrado.
    Sub New(eMundo As Mundo, ePosicion As PointF, tamaño As SizeF)

        'Registrando al mundo para que se procesen los mensajes del mismo.
        _Mundo = eMundo

        'creando el poligono
        cuadrop = New Poligono()

        'En este caso, se agrega un rectangulo al poligono.
        cuadrop.ContenedorFormas.AddRect(New Point(0, 0), tamaño)
        cuadrop.AnchoLinea = 1

        'Una vez se construye el poligono, se agrega a la estructura
        AgregarPoligono(cuadrop, "cuadro")

        'Se ajusta la posicion de la estructura.
        Xpos = ePosicion.X
        Ypos = ePosicion.Y

        'Se calculan los limites de la estructura para 
        'su uso en el sistema de colision.
        CalcularEstructura()

    End Sub

    ''' 
    ''' Este llamado ajusta el color del poligono.
    ''' 
    ''' 
    ''' Es usado por el sistema de efectos.
    Public Sub AjustarColor(colorCuadro As Color)
        cuadrop.ColorPoligono = colorCuadro
    End Sub

End Class

''' 
''' Control del nivel Numero 1.
''' No he pensado aun si dejar el nivel asi..por clases
''' o aqui mismo realizar las 
''' 
''' 
Public Class Nivel1
    Inherits Mundo

    ''' 
    ''' El nivel es creable.
    ''' 
    ''' 
    Public Sub New()
        MyBase.New()
    End Sub

    Private PasoTeclaEliminar As Integer

    Private PasoTiempoAsteroides As Integer
    Private NAsteroidesGenerados As Integer

    ''' 
    ''' Se debe actualizar la logica del nivel.
    ''' 
    ''' 
    Private Sub Nivel1_ActualizarMundo() Handles Me.ActualizarMundo

        PasoTiempoAsteroides = PasoTiempoAsteroides + 1
        PasoTiempoAsteroides = PasoTiempoAsteroides Mod 100

        'Creación automatica de 3 asteroides aleatorios durante el nivel.
        'Cuando el paso pasa a 0, se crea un asteroide
        If PasoTiempoAsteroides = 0 Then
            PasoTiempoAsteroides = 0
            If NAsteroidesGenerados < 2 Then
                NAsteroidesGenerados += 1
                GenerarAsteroide(NumeroAleatorio(0, 3)) 'arriba, abajo, izquierda,derecha
            End If
        End If

        'Creacion manual de asteroides con la tecla N
        If PasoTeclaEliminar < 20 Then PasoTeclaEliminar += 1
        If ControlTeclado.EstaPresionada(Keys.N) Then
            If PasoTeclaEliminar > 10 Then
                PasoTeclaEliminar = 0
                GenerarAsteroide(NumeroAleatorio(0, 3))
            End If
        End If

    End Sub

    ''' 
    ''' Se deben agregar los enemigos iniciales.
    ''' 
    ''' 
    Private Sub cNivel1_InicioCompleto() Handles Me.InicioCompleto
        'Iniciando los asteroides iniciales.
        For i = 0 To 3
            GenerarAsteroide(i)
        Next
        _numeroAsteroides = 4
    End Sub
End Class