If QueryValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Programm") = App.Path + "\" + App.EXEName + ".exe"
 Check_Windows.Value =  1 
Else
 Check_Windows.Value =  0 
End If

Label2.Caption = QueryValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Programm")
Label3.Caption = App.Path + "\" + App.EXEName + ".exe"

If Label2 = Label3 Then
 Check_Windows.Value =  1 
Else
 Check_Windows.Value =  0 
End If

Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Declare Function RegQueryValueExLong Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Long, lpcbData As Long) As Long
Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long) As Long

...

Public Function QueryValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)

Dim lRetVal As Long
Dim hKey As Long
Dim vValue As Variant
lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName,  0 , KEY_ALL_ACCESS, hKey)
lRetVal = QueryValueEx(hKey, sValueName, vValue)
QueryValue = vValue
RegCloseKey (hKey)

End Function

Function QueryValueEx(ByVal lhKey As Long, ByVal szValueName As String, vValue As Variant) As Long

Dim cch As Long
Dim lrc As Long
Dim lType As Long
Dim lValue As Long
Dim sValue As String

On Error GoTo QueryValueExError
    
lrc = RegQueryValueExNULL(lhKey, szValueName,  0 &, lType,  0 &, cch)
'If lrc <> ERROR_NONE Then MsgBox "No!", vbExclamation, Form1.Caption
Select Case lType
       Case REG_SZ:
    sValue = String(cch,  0 )
    lrc = RegQueryValueExString(lhKey, szValueName,  0 &, lType, sValue, cch)
    If lrc = ERROR_NONE Then
                        vValue = Left$(sValue, cch)
       Else
       vValue = Empty
    End If

    Case REG_DWORD:
    lrc = RegQueryValueExLong(lhKey, szValueName,  0 &, lType, lValue, cch)
    If lrc = ERROR_NONE Then vValue = lValue

    Case Else
    lrc = - 1 
    End Select
QueryValueExExit:
    QueryValueEx = lrc
    Exit Function
QueryValueExError:
    Resume QueryValueExExit
End Function