Attribute VB_Name = "RegCtrl"

Public Enum REG_Type
    Chaine = 1 ' "REG_SZ"
    Binaire = 2 ' "REG_BINARY"
    DWord = 3 '"REG_DWORD"
End Enum
    
Public Function Lire(RegAddress As String) As Variant
On Error Resume Next

Set WshShell = CreateObject("Wscript.Shell")

Lire = WshShell.RegRead(RegAddress)

End Function

Public Function Ecrire(RegAddress As String, RegValue As Variant, RType As REG_Type)

On Error Resume Next
Dim TypeRegistre As String

If RType = 1 Then TypeRegistre = "REG_SZ"
If RType = 2 Then TypeRegistre = "REG_BINARY"
If RType = 3 Then TypeRegistre = "REG_DWORD"

Set WshShell = CreateObject("Wscript.Shell")

WshShell.RegWrite RegAddress, RegValue, TypeRegistre


End Function

Public Sub Supprimer(RegAddress As String)

On Error Resume Next

Set WshShell = CreateObject("Wscript.Shell")

WshShell.RegDelete RegAddress

End Sub