Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        Dim Read_Keys As New System.Threading.Thread(AddressOf Me.Read_Keys)
        Read_Keys.Start()
    End Sub

Private Sub Read_Keys()
 
            'Try
            Dim Pfad As Microsoft.Win32.RegistryKey = _
              Microsoft.Win32.Registry.Users.OpenSubKey(Form1.aktuelle_user_id _
              & "\Software\Microsoft\Windows\DWM", True)
            Dim l1 As String = (CType(Pfad.GetValue("EnableAeroPeek"), String))
            MsgBox(l1)
 
            'Catch ex As Exception
 
            'End Try
           End Sub

Dim l1 As String = (CType(Pfad.GetValue("EnableAeroPeek"), String))

Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.