Code:
Private Sub RCClient_Click()
RC2000.Show
End Sub

Private Sub RCClient_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ToolTipTimer.Enabled = False
If NexButtonPic = False Then Exit Sub
Main.NexusButton.Picture = nexusbutton_off.Picture
NexButtonPic = False

End Sub

Private Sub renameicon_Click()
If polDisIconManager = True Then PROBas.AccessDeniedMsg: Exit Sub
Rename_Icon (ICOIndex)
End Sub

Private Sub Renamer_DblClick()
Renamer.SelStart = 0
Renamer.SelLength = Len(Renamer)
End Sub

Private Sub Renamer_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then 'Enter
'Save Icon
PROBas.INISaveSetting "" + Main.Renamer.text, "icon", "title", PATHFile + "Users\" + CurrentUser + "\Icon" & ICOIndex + 1 & ".nexico"
'Update Display
SaveIconPositions
Refresh_Desktop (CurrentUser)
Renamer.text = "{Icon Name}"
Renamer.Visible = False
End If
If KeyCode = 27 Then 'Esc
Renamer.text = "{Icon Name}"
Renamer.Visible = False
End If
End Sub

Private Sub Renamer_LostFocus()
Renamer.text = "{Icon Name}"
Renamer.Visible = False
End Sub

Public Sub IconLbl_Click(Index As Integer)
IconPic_Click (Index)
End Sub

Public Sub IconPic_Click(Index As Integer)
ICOIndex = Index
For clearothericonfills = 0 To 23
If Not IconLbl(clearothericonfills).BackStyle = 0 Then IconLbl(clearothericonfills).BackStyle = 0
Next
IconLbl(Index).BackStyle = 1
If glowon = True Then IconLbl(Index).BackColor = vbBlack
ICOIndex = Index
If glowon = True Then
For I = 0 To 23
'Disable Glow Timers
GlowTimer(I).Enabled = False
If GlowColour = "Red" Then If Not IconLbl(I).ForeColor = vbRed Then IconLbl(I).ForeColor = vbRed
If GlowColour = "Green" Then If Not IconLbl(I).ForeColor = vbGreen Then IconLbl(I).ForeColor = vbGreen
If GlowColour = "Blue" Then If Not IconLbl(I).ForeColor = vbBlue Then IconLbl(I).ForeColor = vbBlue
GlowTCol(I) = 200
GlowCol(I) = 0
Next
GlowTimer(Index).Enabled = True
End If

Renamer.text = "{Icon Name}"
Renamer.Visible = False
If SingleClicker = True And DontShell = False Then
ShellClik(Index).Enabled = True
IconPic_DblClick (Index)
End If
End Sub
Private Sub Form_Load()
'Set globals
MonitoringUser = False
ServPath = PROBas.FindContainerFolder(VB.app.Path)
CurrentUser = PROBas.GetNetworkUserName
PATHFile = VB.app.Path + "\"
If CurrentUser = "" Then CurrentUser = ".DEFAULT": MsgBox "Nexus Special Edition could not detect a Windows username. If you are logged on to the computer with no username, please log onto the network with a username for personalised settings." & vbNewLine & vbNewLine & "> Nexus will use .DEFAULT as the profile image.", 48
KCK = True

'See if forced 'shell_mode' argument is enbaled from server config
p = PROBas.INIGetSetting("Nexus Special Edition Setup", "EnableShellModeUI", ServPath + "NEXSE.KLS.SERV.ini")
If p = "1" Then
Main.Caption = ""
End If
If UCase(Command) = "SHELL_MODE" Then
'Change look of Nexus from windowed to desktop
Main.Caption = ""
End If

'Set the shell-click border intervals on timers
For d = 0 To 23
ShellClik(d).Interval = 50
Next
    
'Immediate Window Statement
Debug.Print "Interworks Nexus Special Edition v8.5.1 - Copyright 2001 Matthew Hall"
Debug.Print "You may edit and compile this code, only if a Label is clearly visible stating 'User Modified Version' on the"
Debug.Print "'Main.frm' form AND the 'SplasherBaby.frm' form."

'Get the Chief Nexus Administrator
p = UCase(PROBas.IntelliCrypt_DeCrypt(PROBas.INIGetSetting("Nexus Special Edition Setup", "subid1", ServPath + "NEXSE.KLS.SERV.ini")))
If p = "" Then MsgBox "There has been a severe security breach in module NEXSE.KLS.SERV.INI. Please run setup to correct the problem.", 16, "Access Denied - Security Breach": End
AdminUSER = p
mnuNexus.Visible = False

'Disable Admin Controls
netcontrol.Enabled = False
netcontrol.Visible = False
netmonitor.Enabled = False
nexnetadmin.Enabled = False
servadmin.Enabled = False
servadmin.Visible = False
editsetuplist.Enabled = False
editsetuplist.Visible = False
servadmin2.Enabled = False
servadmin2.Visible = False
sep100.Visible = False
icu_dude.Enabled = False
icu_dude.Visible = False
icu_dude2.Enabled = False
icu_dude2.Visible = False

netcontrol1.Enabled = False
netcontrol1.Visible = False

netmonitor1.Enabled = False
netmonitor1.Visible = False

nexnetadmin1.Enabled = False
nexnetadmin1.Visible = False



'Check for previous instance
If VB.app.PrevInstance = True Then
MsgBox "Nexus Special Edition does not support multiple instances on the same workstation.", 16, "Nexus Special Edition already running"
End
End If
'<Nexus Special Edition StartUp 3.0>
'   Reg) PreStart Registry Check
    f = UCase(PROBas.RegistryGet(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\", "ProductKey"))
    
    
    If PROBas.INIGetSetting("Nexus Special Edition Setup", "UseReg", ServPath + "NEXSE.KLS.SERV.ini") = "0" Then GoTo 3444
    rg = PROBas.RegistryGet(HKEY_LOCAL_MACHINE, "Software\Interworks\Nexus_2000\Light\8_3_2\", "RegKeyInf")
    rg = PROBas.IntelliCrypt_DeCrypt(rg)
    If Not UCase(Left(f, 11) + PROBas.RegistryGet(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\", "RegisteredOwner")) = UCase(rg) Then
 '   MsgBox "Nexus Special Edition is not licenced properly. This may be because of the following reasons:" & vbNewLine & vbNewLine & "> You have installed a different version of Windows" & vbNewLine & "> You have copied the Nexus Special Edition folder to a different computer" & vbNewLine & vbNewLine & "In all these cases, run Nexus Special Edition Setup to install on this machine.", 16, "Product Licence"
 '   End
    End If

3444
'   Nexus File System) PreStart File System Check
    
    'Check Folders...
    If FileCheck(PATHFile + "Media") = False Then
    'Make Directory
    MkDir PATHFile + "Media"
    End If
    
    If FileCheck(PATHFile + "Media\Wallpaper") = False Then
    'Make Directory
    MkDir PATHFile + "Media\Wallpaper"
    End If
    
    If FileCheck(PATHFile + "Media\Icons") = False Then
    'Make Directory
    MkDir PATHFile + "Media\Icons"
    End If
    
    If FileCheck(PATHFile + "Media\InfoBars") = False Then
    'Make Directory
    MkDir PATHFile + "Media\InfoBars"
    End If
    
    If FileCheck(PATHFile + "Media\Themes") = False Then
    'Make Directory
    MkDir PATHFile + "Media\Themes"
    End If
    
    If FileCheck(PATHFile + "Media\Wallpaper\Blueness.bmp") = False Then
    'Save Wallpaper
    SavePicture Main.Wallpaper.Picture, PATHFile + "Media\Wallpaper\Blueness.bmp"
    End If
    
    If FileCheck(PATHFile + "Users") = False Then
    'Make Directory
    MkDir PATHFile + "Users"
    End If
    
    If FileCheck(PATHFile + "Users\" + CurrentUser) = False Then
    'Make Directory
    MkDir PATHFile + "Users\" + CurrentUser
    End If
    
    If FileCheck(PATHFile + "Users\" + AdminUSER + ".itc") = False Then
        If UCase(AdminUSER) = UCase(CurrentUser) Then
makacc:
            If MsgBox("Nexus Special Edition has found that one or more accounts are missing, not setup or protected. Would you like Nexus to set up a new account for this Windows Username now? (If this is the first time you have run Nexus Special Edtion, click yes)", 48 + vbYesNo, "Account Logon") = vbYes Then
            'Create Account
            '   Save disablenewaccounts key to a setup ini (off)
                PROBas.INISaveSetting "0", "Nexus Special Edition Setup", "DisableNewAccounts", ServPath + "NEXSE.KLS.SERV.ini"
makacc2:
                Main.WindowState = 1
                AccSetup.Show
            Else
                xop = PROBas.INIGetSetting("Nexus Special Edition Setup", "DisableNewAccounts", ServPath + "NEXSE.KLS.SERV.ini")
                If xop = 1 Then
                    MsgBox "Nexus Special Edition cannot continue because of one or more of the following reasons:" & vbNewLine & " > Your account has been deleted\corrupted" & vbNewLine & " > The network is not logged on connected correctly" & vbNewLine & " > Nexus has been configured not to add new accounts to the server" & vbNewLine & vbNewLine & "Please see your Nexus Administrator for more information.", 16, "Nexus Special Edition Account Logon"
                    End
                Else
                    If MsgBox("You do not have an account. Would you like to create a new account?", vbYesNo + vbQuestion, "New Account") = vbYes Then GoTo makacc2:
                End If
            End If
        Else
            MsgBox "Nexus Special Edition has found that a vital account is missing, not setup or protected. Nexus cannot continue. If this is the first time you have run Nexus, then logon as the Windows username you setup Nexus Special Edition with and try again.", 16, "Account Logon - Cannot Continue": End
        End If
    End If
'   1) Startup
    '   Chk) UCHK
    p = PROBas.INIGetSetting("BarredUsers", "num", ServPath + "NEXSE.KLS.SERV.ini")
    If IsNumeric(p) = False Then GoTo ffd
    If p = 0 Then GoTo ffd
    For Isx = 1 To p
    p = PROBas.INIGetSetting("BarredUsers", "u" & Isx, ServPath + "NEXSE.KLS.SERV.ini")
    If UCase(p) = UCase(CurrentUser) Then
    MsgBox "Your account has been disabled. Please see your Nexus Administrator for more information", 16, "Access Denied (REF/0x8512)": End
    End If
    Next
    
ffd:
    
    ICOIndex = -1
    NexNetOn = False
    DoDrag = False

'   2) See if show password command is enabled
    If UCase(Command) = "EGBN2000_SHOWPASS" Then
        Dim px As String: px = PROBas.IntelliCrypt_DeCrypt(PROBas.INIGetSetting("subids", "subid2", PATHFile + "Users\" + CurrentUser + ".itc"))
        
        If Not p = "" Then
            MsgBox "Nexus Special Edition retrieved a local account password request. The password will be supplied encrypted in Interworks Intellicrypt 7.0. Use the Decrytion console supplied with Interworks AdminPack Suite 2000 to decrypt this password." & vbNewLine & "> Data Requested: LOCAL_NEXUS_PASSWORD" & vbNewLine & "> Value: " + PROBas.IntelliCrypt_EnCrypt(px), 64, "Data Request"
        End If
    End If
'   3) Get Nexus Special Edition Settings
    GoTo 332
    p = PROBas.INIGetSetting("subids", "subid7", PATHFile + "Users\" + CurrentUser + ".itc")
    If p = "1" Then
    Else