Waarom werkt dit niet?

[SgtKenneth]

haalloo, ik heb hier een code geschreven,, maar weet iemand waarom het niet werkt??
het probleem is dat main.vb niet opent...
hier mijn code:
(code van het probleem)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button4.Enabled = False
        If (My.Computer.FileSystem.FileExists(Application.StartupPath & "\TIO Hack.exe.config")) Then
            If My.Settings.eerste = True Then
                main.Show()
                My.Settings.eerste = False
                My.Settings.Save()
                My.Settings.Reload()
            Else
                Dim mc As System.Management.ManagementClass
                Dim mo As ManagementObject
                mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
                Dim moc As ManagementObjectCollection = mc.GetInstances()
                For Each mo In moc
                    If mo.Item("IPEnabled") = True Then
                        If My.Settings.Macadress = mo.Item("MacAddress").ToString() Then
                            Me.Enabled = True
                        Else
                            Me.Enabled = False
                        End If
                    End If
                Next
            End If
        Else
            Me.Enabled = False
            MsgBox("TIO Hack.exe.config moet bestaan en geldig zijn!")
        End If
    End Sub

 

[SgtKenneth]

Ik heb nu dit:
het is om mijn programma te beschermen maar hij kijkt wel of het bestand bestaat maar dan niet meer of het de eerste keer is dat het gebruikt word...

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button3.Enabled = False
        If (My.Computer.FileSystem.FileExists(Application.StartupPath & "\Tio-Hack.exe.config")) Then
            If My.Settings.EersteKeer = True Then
                Dim mc As System.Management.ManagementClass
                Dim mo As ManagementObject
                mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
                Dim moc As ManagementObjectCollection = mc.GetInstances()
                For Each mo In moc
                    If mo.Item("IPEnabled") = True Then
                        My.Settings.MacAdress = mo.Item("MacAddress").ToString()
                        My.Settings.Save()
                        My.Settings.Reload()
                    End If
                Next
                My.Settings.EersteKeer = False
                My.Settings.Save()
                My.Settings.Reload()
            ElseIf My.Settings.EersteKeer = False Then
                Dim mc As System.Management.ManagementClass
                Dim mo As ManagementObject
                mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
                Dim moc As ManagementObjectCollection = mc.GetInstances()
                For Each mo In moc
                    If mo.Item("IPEnabled") = True Then
                        If My.Settings.MacAdress = mo.Item("MacAddress").ToString() Then
                            Me.Enabled = True
                        Else
                            Me.Enabled = False
                            MsgBox("Koop hem zelf! heb je hem zelf gekocht en zie je deze melding mail dan naar kennethrozendaal@hotmail.com of sahderooij@gmail.com")
                        End If
                    End If
                Next
                    End If
        Else
            Me.Enabled = False
            MsgBox("Het bestand Tio-Hack.exe.config bestaat niet of is ongeldig", 16, "Error")
        End If
    End Sub