ayuda, código demasiado largo vb 6.0

[seba123neo]

Hola,nunca vi un code tan largo jeje ,no mira primero no entiendo algo de tu programa se supone que los picturesbox son matriz de controles no ?,pero veo que siempre tiene el indice en 0...por ejemplo Picture71(0),Picture72(0),Picture73(0)..etc... tiene que ser asi Picture71(0),Picture71(1),Picture71(2) y etc... asi aumentando el indice de la matriz en uno...no se porque tenes todos ceros...al hacerlo como yo te digo con 3 lineas de codigo podes hacer todo...mira te pongo un ejemplo agarra y renombra los picturebox y cambiles el indice a cada uno y que te quede asi:

en vez de llamarse Picture71(0),Picture72(0),Picture73(0).....poneles que se llamen asi:

Picture71(0),Picture71(1),Picture71(2)...etc...

que se llamen todos picture71 y que cada uno tenga un indice diferente...y despues tu codigo quedaria asi mas o menos lo arme rapido...

Código:

Dim i As Integer
If Combo1.Text = 1 Then
  If Check1.Value = 0 And Check2.Value = 0 Then
    If Combo2.Text = "Carga puntual" And Combo6.Text = "Carga uniforme" And Combo10.Text = "Carga uniforme" Then
      If Form3.Text1 = 0 Or Form3.Text1 = Form2.Text1 Then
         Picture71(0).Visible = True
            For i = 1 To 27
             Picture71(i).Visible = False
            Next i
      End If

      If Form3.Text1 < ((Form2.Text1) / 2) And Form3.Text1 > 0 Then
        For i = 0 To 19
             Picture71(i).Visible = False
        Next i
          Picture71(20).Visible = True

        For i = 21 To 27
             Picture71(i).Visible = False
        Next i

            End If

            If Form3.Text1 = ((Form2.Text1) / 2) Then

        For i = 0 To 15
             Picture71(i).Visible = False
        Next i

            Picture71(16).Visible = True

        For i = 17 To 27
             Picture71(i).Visible = False
        Next i

            End If

            If Form3.Text1 > ((Form2.Text1) / 2) And Form3.Text1 > Form2.Text1 Then
           
           For i = 0 To 23
             Picture71(i).Visible = False
           Next i
 
           Picture71(24).Visible = True
          
          For i = 25 To 27
             Picture71(i).Visible = False
           Next i

           End If

        End If

    End If
End If

saludos.