VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsCPLSecurity"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private objRegistry As clsRegistry

'---------------------------------------------------------------------------------------
' Procedure : DisableNetworkIconInControlPanel
' DateTime  : 7/12/2002 15:29
' Author    : Manvinder
' Purpose   : Disable/Enable Network option  in Control Panel
'---------------------------------------------------------------------------------------
Public Function DisableNetworkIconInControlPanel(ByVal Disabled As Boolean) As Long
On Error GoTo DisableNetworkIconInControlPanel_Error
    'populate call stack
    If Len(g_Call_Stack) > 500 Then g_Call_Stack = Right(g_Call_Stack, 500)
    g_Call_Stack = g_Call_Stack & ";" & "DisableNetworkIconInControlPanel"
'Your code here
    If Disabled = True Then
        objRegistry.SetValue eHKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Network", "NoNetSetup", CLng(1), eREG_DWORD
    Else
        objRegistry.SetValue eHKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Network", "NoNetSetup", CLng(0), eREG_DWORD
    End If
    
    'm_blReLogin = true

    On Error GoTo 0
    Exit Function
DisableNetworkIconInControlPanel_Error:
    Select Case Err.Number
        Case 0
        Case Else
            #If DEBUGGING Then
                MsgBox "Error " & Err.Number & " (" & Err.Description & ") at line# " & Erl & " in procedure DisableNetworkIconInControlPanel of Class Module clsCPLSecurity"
            #End If
            Call WriteErrorFile(Err.Number & "||" & Err.Description & "||" & Erl & "||" & "clsCPLSecurity" & "||" & g_Call_Stack & "||" & Date & "||" & Time)
    End Select
End Function

Private Sub Class_Initialize()
    Set objRegistry = New clsRegistry
End Sub

Private Sub Class_Terminate()
    Set objRegistry = Nothing
End Sub