Text1.Text="hola"
...
Private Sub Command1_Click()
    Combo1.ListIndex = Val(Text1.Text)  '<---si text1.text no es numerico se convierte en 0
End Sub
 
 
 
Private Sub Command2_Click()
    Combo1.ListIndex = Text1.Text '<---- Error no coinciden los tipos
End Sub
 

 
 
    Private marcianitos(4, 7) As Rectangle   '<--- el tamaño de X es 4 que va de 0 a 3, 3 es el maximo
 
    Dim ancho As Integer = 50, alto As Integer = 40
    Dim x As Integer = 30, y As Integer = 30
 
     For i = 0 To 3  '<----- Tenias 7
           For j = 0 To 6 '<---- el tamaño en Y de la matriz es 7 que va de 0 a 6
                marcianitos(i, j) = New Rectangle(x, y, ancho, alto)
                x = x + ancho + 5
            Next j
            y = y + alto + 5
            x = 30
      Next i
 

    Dim ancho As Integer = 50, alto As Integer = 40
    Dim x As Integer = 30, y As Integer = 30
 
   dim marcianitos() As Rectangle '<---- sin tamaño
 
    redim marcianitos(0 to lenX, 0 to lenY) as rectangle '<---Redimensionas la matriz para ajustarla al tamaño
 
     For i = 0 To lenX
           For j = 0 To lenY
                marcianitos(i, j) = New Rectangle(x, y, ancho, alto)
                x = x + ancho + 5
            Next j
            y = y + alto + 5
            x = 30
      Next i