If intDokuPlateiaInstallation = -1 Then
'[HKEY_LOCAL_MACHINE\SOFTWARE\CGSA\CGSApps\4]
'"NetSrv"=""
'"IniPath"="C:\\Applikationen\\CGSA\\2004\\CGSApps6\\CGSApps.INI"
'"ProtTyp"=dword:00000000
'"HwKey"=dword:00000000
 
Dim reg_NetSrv, reg_IniPath, reg_ProtTyp, reg_HwKey As String
Dim regkey_Plateia As String
regkey_Plateia = "SOFTWARE\CGSA\CGSApps\4"
 
With cRegistry
   .RootKey = HKEY_CURRENT_USER
 Call .GetValue(regkey_Plateia, "NetSrv", reg_NetSrv)
 Call .GetValue(regkey_Plateia, "IniPath", reg_IniPath)
 Call .GetValue(regkey_Plateia, "ProtTyp", reg_ProtTyp)
 Call .GetValue(regkey_Plateia, "HwKey", reg_HwKey)
End With

Visual Basic 6.0 Grundkenntnisse und ansonsten alles rund um AutoCAD