Option Explicit On
 
Imports System.Runtime.InteropServices
Imports WindowsApplication1.Login
Imports WindowsApplication1.Bildschirmsperre
Imports WindowsApplication1.HOOK

Public Class Class1
 
    'gemeinsame Eigenschaft aller Class1-Instanzen
    Public Shared Property prop_shared As String
 
    'spezifische Eigenschaft einer Class1-Instanz
    Public prop_instance As String
 
End Class

    Class1.prop_shared = "Wert in Class1"
 
    Dim c1 As New Class1
    c1.prop_instance = "Wert in C1"
 
    'Fehler: Der Verweis auf einen nicht freigegebenen Member 
    'erfordert einen Objektverweis:
    Class1.prop_instance = "xxx"

Dim myHook As New HookClass
 
myHook.KeyHookEnable()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist