在VB中所有图片框消失后，如何制作新表格？

Question

我正在设计太空入侵者游戏，并在屏幕上显示12个外星人。一旦所有外星人都在屏幕上被拍摄，我想关闭当前表格并在vb中打开另一个表格。

外星人存储在这样的数组中：

Private Sub createarray()
    aliens(0) = alien1
    aliens(1) = alien2
    aliens(2) = alien3
    aliens(3) = alien4
    aliens(4) = alien5
    aliens(5) = alien6
    aliens(6) = alien7
    aliens(7) = alien8
    aliens(8) = alien9
    aliens(9) = alien10
    aliens(10) = alien11
    aliens(11) = alien12
    End Sub

Answer 1

尝试将此添加到代码中，以便检查所有外星人是否已经死亡

   Dim alldead As Boolean = True
    For Each alien In aliens
        If alien.enabled = True Then
            alldead = False
            Exit For
        End If
    Next
    If alldead Then
        Me.Hide()
        Form6.show()
    End If