[VB6] Errore End If nel seguente codice

[jamester]

Buongiorno a tutti. Quest'oggi sono alle prese con un fastidioso errore di End If without If ma non riesco proprio a capire dove starebbe sto errore. Grazie anticipate per l'aiuto! Il codice è questo:

Public Sub Caricamento_Meta()

Dim a As String

If Tutto_Qui_2.Pulsante1.BackColor = &HC0FFFF Then a = Tutto_Qui_2.Pulsante1.Caption
If Tutto_Qui_2.Pulsante2.BackColor = &HC0FFFF Then a = Tutto_Qui_2.Pulsante2.Caption
If Tutto_Qui_2.Pulsante3.BackColor = &HC0FFFF Then a = Tutto_Qui_2.Pulsante3.Caption
If Tutto_Qui_2.Pulsante4.BackColor = &HC0FFFF Then a = Tutto_Qui_2.Pulsante4.Caption
If Tutto_Qui_2.Pulsante5.BackColor = &HC0FFFF Then a = Tutto_Qui_2.Pulsante5.Caption
If Tutto_Qui_2.Pulsante6.BackColor = &HC0FFFF Then a = Tutto_Qui_2.Pulsante6.Caption
If Tutto_Qui_2.Pulsante7.BackColor = &HC0FFFF Then a = Tutto_Qui_2.Pulsante7.Caption
If Tutto_Qui_2.Pulsante8.BackColor = &HC0FFFF Then a = Tutto_Qui_2.Pulsante8.Caption
If Tutto_Qui_2.Pulsante9.BackColor = &HC0FFFF Then a = Tutto_Qui_2.Pulsante9.Caption
If Tutto_Qui_2.Pulsante10.BackColor = &HC0FFFF Then a = Tutto_Qui_2.Pulsante10.Caption

' Caricamento

If Tutto_Qui_2.Reminder_Check.Value = 0 And Tutto_Qui_2.Rolling_Check.Value = 0 Then
 Call MsgBox("Non è stata scelta la modalità da eseguire", vbOKOnly + vbExclamation + vbApplicationModal + vbDefaultButton1, "Baldios's Anarchy Toolkit Deluxe 6.0")
 Tutto_Qui_2.Sfondo_Modalità.BackColor = &HFF&
Else
 Tutto_Qui_2.Sfondo_Modalità.BackColor = &HFF8080

 If Tutto_Qui_Rem_Cli.Engineer_Check.Value = "1" Then
  Open App.Path & "\Database\Engineer\Engi Prova.db" For Input As #1
 End If

 If Tutto_Qui_Rem_Cli.Meta_Physicist_Check.Value = "1" Then
  Open App.Path & "\Database\Meta-Physicist\Meta-Physicist.db" For Input As #1
 End If

 'Do Until Tutto_Qui_2.Famiglia_Check.Caption = a And Tutto_Qui_2.Tipo_Check.Caption = "R"
 Do Until Tutto_Qui_2.Famiglia_Check.Caption = a
  Input #1, linea
  Tutto_Qui_2.Name_Check.Caption = Tutto_Qui_2.Name_Check.Caption & linea
  Input #1, linea
  Tutto_Qui_2.Lvl_Check.Caption = Tutto_Qui_2.Lvl_Check.Caption & linea
  Input #1, linea
  Tutto_Qui_2.Tipo_Check.Caption = Tutto_Qui_2.Tipo_Check.Caption & linea
  Input #1, linea
  Tutto_Qui_2.Famiglia_Check.Caption = Tutto_Qui_2.Famiglia_Check.Caption & linea
  Input #1, linea
  Tutto_Qui_2.Check1.Value = Tutto_Qui.Check1.Value & linea
 
  If Tutto_Qui_2.Tipo_Check.Caption = "R" Then
   If Tutto_Qui_2.Nano1(1).Caption = "" And Tutto_Qui_2.Nano1(0).Caption = "" And Tutto_Qui_2.Nano1(2).Caption = "" And Tutto_Qui_2.Nano1(3).Caption = "" Then
    Tutto_Qui_2.Nano1(1).Caption = Tutto_Qui_2.Name_Check.Caption
    Tutto_Qui_2.Nano1(0).Caption = Tutto_Qui_2.Lvl_Check.Caption
    Tutto_Qui_2.Nano1(2).Caption = Tutto_Qui_2.Tipo_Check.Caption
    Tutto_Qui_2.Nano1(3).Caption = Tutto_Qui_2.Famiglia_Check.Caption
    
    If Tutto_Qui_2.Check1.Value = 0 Then
     Tutto_Qui_2.Nano1_on.Visible = True
     Tutto_Qui_2.Nano1_on.Enabled = True
    End If
    
    If Tutto_Qui_2.Check1.Value = 1 Then
     Tutto_Qui_2.Nano1_off.Visible = True
     Tutto_Qui_2.Nano1_off.Enabled = True
    End If
   
   End If
    
   If Tutto_Qui_2.Nano1(1).Caption <> "" And Tutto_Qui_2.Nano1(0).Caption <> "" And Tutto_Qui_2.Nano1(2).Caption <> "" And Tutto_Qui_2.Nano1(3).Caption <> "" Then
    Tutto_Qui_2.Nano2(1).Caption = Tutto_Qui_2.Name_Check.Caption
    Tutto_Qui_2.Nano2(0).Caption = Tutto_Qui_2.Lvl_Check.Caption
    Tutto_Qui_2.Nano2(2).Caption = Tutto_Qui_2.Tipo_Check.Caption
    Tutto_Qui_2.Nano2(3).Caption = Tutto_Qui_2.Famiglia_Check.Caption
   
    If Tutto_Qui_2.Check2.Value = 0 Then
     Tutto_Qui_2.Nano2_on.Visible = True
     Tutto_Qui_2.Nano2_on.Enabled = True
    End If
     
    If Tutto_Qui_2.Check2.Value = 1 Then
     Tutto_Qui_2.Nano2_off.Visible = True
     Tutto_Qui_2.Nano2_off.Enabled = True
    End If
   
   End If
  
  Assegnazione_Colori_Nano
  
  End If

End If

Loop
Close #1

End Sub

[jamester]

Risolto riprogrammando la sequenza.