Dim Zähler As Long, fTime As FILETIME
Dim result As Long
 
Private Type FILETIME
  dwLowDateTime As Long
  dwHighDateTime As Long
End Type
 
Private Sub cmdLoad_Click()
 
    Dim hKey As Long, RetVal As Long, Wert As String, Name As String, iZähler _
      As Long
    Wert = Space(256)
    Name = Space(256)
 
    'Open Key
    RetVal = RegOpenKeyEx(HKEY_LOCAL_MACHINE, _
      "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\Eve" & _
      "tHandlers", 0, KEY_QUERY_VALUE, hKey)
 
    Wert = Space(256)
    Name = Space(256)
    Do
        RetVal = RegEnumKeyEx(hKey, Zähler, Name, Len(Name), 0, Wert, _
          Len(Wert), fTime)
 
    If result = ERROR_SUCCESS Then
        lstTest.AddItem "." & Name
        End If
        Zähler = Zähler + 1
      Loop Until result = ERROR_NO_MORE_ITEMS
 
End Sub

Felder mit * m?ssen korrekt ausgef?llt werden