German Fehler: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

[Amalkotey]

Moin, moin,

ich habe den o.g. Fehler und weis einfach nicht mehr weiter. Ich poste mal meinen Code:

Sub App_Start
   If cPPC = True  Then
      #Region "Initialisierung der Objekte"
         Bit.New1
         Flb.New1("frmMain", B4PObject(1))
         FIni.New2
         Process.New1(False)
         Process.CreateNew("System.Diagnostics.Process" & Process.System_NS)
         Reg.New1
         StartInfo.New1(False)
         StartInfo.Value = Process.GetProperty("StartInfo")
         StrEx.New1
         Tab.New1("frmMain", 0, 0, 240, 350)
      #End Region
      If IsSamsungDevice = True Then
         #Region "Setzen der Events-Proceduren"
            mnuEvents() = StrSplit("101,102,103,104,201,202", ",")  
            For I = 0 To ArrayLen(mnuEvents()) - 1
                 AddEvent ("mnu" & mnuEvents(I), Click, "MainSwitchBoard")
            Next
            btnEvents() = StrSplit("101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123", ",")  
            For I = 0 To ArrayLen(btnEvents()) - 1
                 AddEvent ("btn" & btnEvents(I), Click, "ButtonSwitchBoard")
            Next
            ibtnEvents() = StrSplit("101,102,103", ",")  
            For I = 0 To ArrayLen(ibtnEvents()) - 1
               AddEvent ("ibtn" & ibtnEvents(I), Click, "ImageButtonSwitchBoard")
            Next
         #End Region
         #Region "Prüfen ob der Reiter [Today 2] benötigt wird."
            Reg.RootKey(Reg.rtCurrentUser)
            Names() = Reg.GetSubKeyNames("Software\Samsung\Clock\Alarm")
            If FileExist ("\Windows\TClock.exe") = True Then
               If ArrayLen(Names()) - 1 > 0 Then
                  TabPage() = StrSplit("Willkommen,Telefon,Messaging,Erinnerungen,Today 2,Verbindung,Einstellungen,Info,Module", ",")
               Else
                  TabPage() = StrSplit("Willkommen,Telefon,Messaging,Erinnerungen,Verbindung,Einstellungen,Info,Module", ",")
                  mnu201.Enabled = False
               End If
            Else
               TabPage() = StrSplit("Willkommen,Telefon,Messaging,Erinnerungen,Verbindung,Einstellungen,Info,Module", ",")
               mnu201.Enabled = False
            End If
         #End Region
         ReadRegistry
         frmMain.Show
      Else
         Msgbox(cMsg, cInfo, cMsgboxOK)
      End If
   Else
      Msgbox(cMsg, cInfo, cMsgboxOK)
   End If
End Sub

Der Fehler wir durch diese Codezeile verursacht:

AddEvent("ibtn" & ibtnEvents(I), Click, "ImageButtonSwitchBoard")

Was bedeutet der Fehler udnwie kann ich ihn beheben? Vielen Dank für euere Hilfe im voraus.

MfG
Amalkotey