Hi, i need some help with this error

[andrewjrmill825]

[CODE]netcontrol1.Enabled = True
netcontrol1.Visible = True

netmonitor1.Enabled = True
netmonitor1.Visible = True
sep100.Visible = True

nexnetadmin1.Enabled = True
nexnetadmin1.Visible = True
sep1005.Visible = True
sep7.Visible = True
sep1005.Visible = True
Else
'Disable template Controls
edit_template.Visible = False
edit_template.Enabled = False
editsetuplist.Enabled = False
editsetuplist.Visible = False
End If

'The user tag file needs to be opened for filenum 486 (Nexus) or 487 (NexNet)
On Error Resume Next
Close
Open PATHFile + "Users\" + CurrentUser + ".atag" For Output As FreeFile
If NexNetOn = True Then Open PATHFile + "Users\" + CurrentUser + ".btag" For Output As FreeFile

If DontLoadTheme = True Then GoTo fini_rfsh
le_start:



'Theme Loader 8.5.1
mt = 0

Form_Resize

'Get Theme Information from .NexTheme file in user directory

' Check for Theme File existence
If FileCheck(PATHFile + "Users\" + UserToLogon + "\CurrentTheme.NexTheme") = False Then
GoTo createthemefile
End If
GetThemeInf:

'Nexus Button
If FileCheck(PATHFile + "Users\" + UserToLogon + "\NexusButton_a.btn") = False Then
GoTo 33225
Else
If FileCheck(PATHFile + "Users\" + UserToLogon + "\NexusButton_b.btn") = False Then
GoTo 33225
Else
'They both exist so load them in
On Error GoTo 3322
nexusbutton_on.Picture = LoadPicture(PATHFile + "Users\" + UserToLogon + "\NexusButton_a.btn")
nexusbutton_off.Picture = LoadPicture(PATHFile + "Users\" + UserToLogon + "\NexusButton_b.btn")
NexusButton.Picture = nexusbutton_off.Picture
End If
End If
GoTo 23
3322
MsgBox "Nexus encountered problems with your Nexus Button image(s). The images must be of a valid picture format (BMP, JPG or GIF) in order to work.", 48, "Warning"
33225
nexusbutton_on.Picture = default_on.Picture
nexusbutton_off.Picture = default_off.Picture
NexusButton.Picture = nexusbutton_off.Picture
23
'Customised Info-Bar Tags
If FileCheck(PATHFile + "Users\" + UserToLogon + "\InfoBar.mod") = False Then GoTo 99883
On Error Resume Next
p = PROBas.INIGetSetting("mod", "infobar.user.forecolor", PATHFile + "Users\" + UserToLogon + "\InfoBar.mod")
If Not p = "" Then InfoUser.ForeColor = p
p = PROBas.INIGetSetting("mod", "infobar.user.backcolor", PATHFile + "Users\" + UserToLogon + "\InfoBar.mod")
If Not p = "" Then InfoUser.BackColor = p
p = PROBas.INIGetSetting("mod", "infobar.user.fontname", PATHFile + "Users\" + UserToLogon + "\InfoBar.mod")
If Not p = "" Then InfoUser.FontName = p
p = PROBas.INIGetSetting("mod", "infobar.user.fontbold", PATHFile + "Users\" + UserToLogon + "\InfoBar.mod")
If Not p = "" Then InfoUser.FontBold = p
p = PROBas.INIGetSetting("mod", "infobar.user.fontitalic", PATHFile + "Users\" + UserToLogon + "\InfoBar.mod")
If Not p = "" Then InfoUser.FontItalic = p
p = PROBas.INIGetSetting("mod", "infobar.user.fontunderline", PATHFile + "Users\" + UserToLogon + "\InfoBar.mod")
If Not p = "" Then InfoUser.FontUnderline = p
p = PROBas.INIGetSetting("mod", "infobar.user.fontsize", PATHFile + "Users\" + UserToLogon + "\InfoBar.mod")
If Not p = "" Then InfoUser.FontSize = p

p = PROBas.INIGetSetting("mod", "infobar.time.forecolor", PATHFile + "Users\" + UserToLogon + "\InfoBar.mod")
If Not p = "" Then Tme.ForeColor = p
p = PROBas.INIGetSetting("mod", "infobar.time.backcolor", PATHFile + "Users\" + UserToLogon + "\InfoBar.mod")
If Not p = "" Then Tme.BackColor = p
p = PROBas.INIGetSetting("mod", "infobar.time.fontname", PATHFile + "Users\" + UserToLogon + "\InfoBar.mod")
If Not p = "" Then Tme.FontName = p
p = PROBas.INIGetSetting("mod", "infobar.time.fontbold", PATHFile + "Users\" + UserToLogon + "\InfoBar.mod")
If Not p = "" Then Tme.FontBold = p
p = PROBas.INIGetSetting("mod", "infobar.time.fontitalic", PATHFile + "Users\" + UserToLogon + "\InfoBar.mod")
If Not p = "" Then Tme.FontItalic = p
p = PROBas.INIGetSetting("mod", "infobar.time.fontunderline", PATHFile + "Users\" + UserToLogon + "\InfoBar.mod")
If Not p = "" Then Tme.FontUnderline = p
p = PROBas.INIGetSetting("mod", "infobar.time.fontsize", PATHFile + "Users\" + UserToLogon + "\InfoBar.mod")
If Not p = "" Then Tme.FontSize = p

GoTo 4009
99883
'Set the info-bar to default
Tme.BackColor = &HC00000
Tme.ForeColor = &HFFFFFF
Tme.FontName = "Tahoma"
Tme.FontSize = 8.25
Tme.FontBold = False
Tme.FontItalic = False
Tme.FontUnderline = False
InfoUser.BackColor = &HC00000
InfoUser.ForeColor = &HFFFFFF
InfoUser.FontName = "Tahoma"
InfoUser.FontSize = 8.25
InfoUser.FontBold = False
InfoUser.FontItalic = False
InfoUser.FontUnderline = False
4009
'Hot Tracking and SingleClik
r = PROBas.INIGetSetting("theme", "hot_track", PATHFile + "Users\" + CurrentUser + "\CurrentTheme.NexTheme")
If r = "1" Then
HotTrack = True
Else
HotTrack = False
End If
r2 = PROBas.INIGetSetting("theme", "oneclick", PATHFile + "Users\" + CurrentUser + "\CurrentTheme.NexTheme")
If r2 = "1" Then
SingleClicker = True
Else
SingleClicker = False
End If

' Wallpaper

' Wallpaper Setting
p = PROBas.INIGetSetting("theme", "kwikwallpaper", PATHFile + "\Users\" + CurrentUser + "\CurrentTheme.NexTheme")
Dim KWK As Boolean
If p = "1" Then
KWK = True
Else
KWK = False
End If

'Policy Overtake
If polHideWallpaper = True Then
Main.Picture = LoadPicture("")
Main.Wallpaper.Visible = False
Main.Wallpaper.Picture = LoadPicture("")
GoTo 87222
End If

p = PROBas.INIGetSetting("theme", "wallpaper", PATHFile + "\Users\" + UserToLogon + "\CurrentTheme.NexTheme")
If p = "" Then
If KWK = False Then
Main.Wallpaper.Picture = LoadPicture("")
Main.Picture = LoadPicture("")
Main.Wallpaper.Visible = True
Else
Main.Picture = LoadPicture("")
Main.Wallpaper.Visible = False
Main.Wallpaper.Picture = LoadPicture("")
End If
GoTo saa
End If


Dim ds As String
ds = p
If FileCheck(ds) = False Then
invpic:
PROBas.INISaveSetting "", "theme", "wallpaper", PATHFile + "\Users\" + UserToLogon + "\CurrentTheme.NexTheme"
If KWK = False Then
Main.Wallpaper.Picture = LoadPicture("")
Main.Picture = LoadPicture("")
Main.Wallpaper.Visible = True
Else
Main.Picture = LoadPicture("")
Main.Wallpaper.Visible = False
Main.Wallpaper.Picture = LoadPicture("")
End If

If MsgBox("Your wallpaper picture file could not be found. You may have deleted it by accident. Do you want to try and find it?", vbYesNo + 48, "Wallpaper Picture File Missing") = vbYes Then
With IconForm.CD
Err.Clear
On Error GoTo s
.DialogTitle = "Find Missing Wallpaper Picture File"
.FileName = p
.InitDir = PATHFile + "Media\Wallpaper"
.ShowOpen
PROBas.INISaveSetting .FileName, "theme", "wallpaper", PATHFile + "\Users\" + UserToLogon + "\CurrentTheme.NexTheme"
If KWK = False Then
Main.Wallpaper.Picture = LoadPicture(.FileName)
Main.Picture = LoadPicture("")
Main.Wallpaper.Visible = True
Else
Main.Picture = LoadPicture(.FileName)
Main.Wallpaper.Visible = False
Main.Wallpaper.Picture = LoadPicture("")
End If
End With
s:
End If
Else
On Error GoTo invpic
If KWK = False Then
Main.Wallpaper.Picture = LoadPicture(p)
Main.Picture = LoadPicture("")
Main.Wallpaper.Visible = True
Else
Main.Picture = LoadPicture(p)
Main.Wallpaper.Visible = False
Main.Wallpaper.Picture = LoadPicture("")
End If

End If

saa:
87222
' Desktop Colour
p = PROBas.INIGetSetting("theme", "desktop", PATHFile + "\Users\" + UserToLogon + "\CurrentTheme.NexTheme")
If p = "" Then
invcolr:
PROBas.INISaveSetting "8388608", "theme", "desktop", PATHFile + "\Users\" + UserToLogon + "\CurrentTheme.NexTheme"
Main.BackColor = 8388608#
Else
On Error GoTo invcolr
Main.BackColor = p
End If

' InfoBar Picture
p = PROBas.INIGetSetting("theme", "infbar", PATHFile + "\Users\" + UserToLogon + "\CurrentTheme.NexTheme")
If p = "#" Then GoTo s2
If p = "" Then
invbar:
PROBas.INISaveSetting "#", "theme", "infbar", PATHFile + "\Users" + UserToLogon + "\CurrentTheme.NexTheme"
Main.InfoBar.Picture = LoadPicture("")
If MsgBox("Your Info-Bar picture file could not be found. You may have deleted it by accident. Do you want to try and find it?", vbYesNo + 48, "Info-Bar Picture File Missing") = vbYes Then
With IconForm.CD
On Error GoTo s2
.DialogTitle = "Find Missing Info-Bar Picture"
.FileName = p
.InitDir = PATHFile + "Media\InfoBars"
.ShowOpen
If FileCheck(.FileName) = False Then GoTo s2
PROBas.INISaveSetting .FileName, "theme", "infbar", PATHFile + "\Users\" + UserToLogon + "\CurrentTheme.NexTheme"
Main.InfoBar.Picture = LoadPicture(.FileName)
End With
GoTo cnt
s2:
PROBas.INISaveSetting "#", "theme", "infbar", PATHFile + "\Users\" + UserToLogon + "\CurrentTheme.NexTheme"
Main.InfoBar.Picture = Main.DefaultIBAR.Picture
Else
GoTo s2
End If
Else
Err.Clear
On Error GoTo invbar
Dim o As String
o = p
If FileCheck(o) = False And Not p = "#" Then GoTo invbar
If p = "#" Then Main.InfoBar.Picture = Main.DefaultIBAR.Picture Else Main.InfoBar.Picture = LoadPicture(p)
End If
cnt:


'Get icon varibles
If polHideIcons = True Then
'Hide the icons
For I = 0 To 23
IconLabel(I) = ""
Main.IconLbl(I).Visible = False
IconPicture(I) = ""
Main.IconPic(I).Visible = False
IconShellString(I) = ""
Next
GoTo 9871349
End If


oldusernm = "$%%%$"
Dim i_onoff(23) As Integer
For I = 0 To 23
p = PROBas.INIGetSetting("user", "i" & I + 1, PATHFile + "Users\" + UserToLogon + ".itc")
If Not p = 1 Then i_onoff(I) = 0 Else i_onoff(I) = 1
Next

'Get from icon file and set global varibles
For I = 0 To 23
If i_onoff(I) = 1 Then
IconLabel(I) = PROBas.INIGetSetting("icon", "title", PATHFile + "Users\" + UserToLogon + "\Icon" & I + 1 & ".nexico")
IconPicture(I) = PROBas.INIGetSetting("icon", "picture", PATHFile + "Users\" + UserToLogon + "\Icon" & I + 1 & ".nexico")
IconShellString(I) = PROBas.INIGetSetting("icon", "shellstring", PATHFile + "Users\" + UserToLogon + "\Icon" & I + 1 & ".nexico")
Main.IconLbl(I).Visible = True
Main.IconPic(I).Visible = True
Else
IconLabel(I) = ""
Main.IconLbl(I).Visible = False
IconPicture(I) = ""
Main.IconPic(I).Visible = False
IconShellString(I) = ""
End If
Next

'Set the desktop icons
Dim noicons As Boolean
noicons = True

For I = 0 To 23
If IconLabel(I) = "" Then
Main.IconPic(I).Visible = False
Main.IconLbl(I).Visible = False
Else
noicons = False
'Set icon positions
p = PROBas.INIGetSetting("icon", "ptop", PATHFile + "Users\" + UserToLogon + "\Icon" & I + 1 & ".nexico")
If Not p = "" Then Main.IconPic(I).Top = p
p = PROBas.INIGetSetting("icon", "pleft", PATHFile + "Users\" + UserToLogon + "\Icon" & I + 1 & ".nexico")
If Not p = "" Then Main.IconPic(I).Left = p
p = PROBas.INIGetSetting("icon", "ltop", PATHFile + "Users\" + UserToLogon + "\Icon" & I + 1 & ".nexico")
If Not p = "" Then Main.IconLbl(I).Top = p
p = PROBas.INIGetSetting("icon", "lleft", PATHFile + "Users\" + UserToLogon + "\Icon" & I + 1 & ".nexico")
If Not p = "" Then Main.IconLbl(I).Left = p

Main.IconPic(I).Visible = True


'Check for KwikIcon
If Left(IconPicture(I), 1) = "#" Then
If Len(IconPicture(I)) = 2 And Right(IconPicture(I), 1) = "0" Then GoTo npic
p = Right(IconPicture(I), Len(IconPicture(I)) - 1)
If Left(p, 1) = "0" Then p = Right(p, 1)
If p > 25 Then GoTo npic
IconPic(I).Picture = KwikICO.Preset(p - 1).Picture
GoTo nxt
End If


If IconPicture(I) = "" Then GoTo npic

If PROBas.FileCheck(IconPicture(I)) = True Then
Main.IconPic(I).Picture = LoadPicture(IconPicture(I))
Else
npic:
Main.IconPic(I).Picture = Main.DefaultIcon
End If
nxt:
If IconLabel(I) = "" Then
Main.IconLbl(I).Caption = "{No Text Label}"
Else
Main.IconLbl(I).Caption = IconLabel(I)
End If
End If
Next

If noicons = True Then
If MsgBox("You do not have any icons on your desktop, would you like to add one?", vbYesNo + 32, "No Icons On Desktop") = vbYes Then
If polDisNewIconWiz = True Then PROBas.AccessDeniedMsg: GoTo 9871349
NewIcon.NewIconWizard
End If
End If

9871349

'Get program menu items from profile image register
'Also get Game Menu items

oldusernm = "£££##^"
Dim dd As Integer

For dd = 1 To 8

p = PROBas.INIGetSetting("user", "g" & dd, PATHFile + "Users\" + UserToLogon + ".itc")
If p = "1" Then
p1 = PROBas.INIGetSetting("game", "shellstring", PATHFile + "Users\" + UserToLogon + "\Game" & dd & ".nexgam")
If p1 = "" Then
PROBas.INISaveSetting "0", "user", "g" & dd, PATHFile + "Users\" + UserToLogon + ".itc"
GoTo 21344
End If
p2 = PROBas.INIGetSetting("game", "title", PATHFile + "Users\" + UserToLogon + "\Game" & dd & ".nexgam")
If p2 = "" Then p2 = "Game Shortcut (" & dd & ")"
'Update menu
Select Case dd
Case 1
Main.gm1.Visible = True
Main.gm1.Caption = p2
GameMenuShell(1) = p1

Case 2
Main.gm2.Visible = True
Main.gm2.Caption = p2
GameMenuShell(2) = p1

Case 3
Main.gm3.Visible = True
Main.gm3.Caption = p2
GameMenuShell(3) = p1

Case 4
Main.gm4.Visible = True
Main.gm4.Caption = p2
GameMenuShell(4) = p1

Case 5
Main.gm5.Visible = True
Main.gm5.Caption = p2
GameMenuShell(5) = p1

Case 6
Main.gm6.Visible = True
Main.gm6.Caption = p2
GameMenuShell(6) = p1

Case 7
Main.gm7.Visible = True
Main.gm7.Caption = p2
GameMenuShell(7) = p1[CODE]