Option Explicit

Dim objDX7 As New DirectX7
Dim objDD7 As DirectDraw7
Dim objDDE As DirectDrawEnum
Dim objDDI As DirectDrawIdentifier

Private Sub Form_Load()
  Dim i As Single

  On Error GoTo ERROUT

  Set objDDE = objDX7.GetDDEnum
  lbl_CountDC.Caption = "Anzahl Anzeigetreiber: " & objDDE.GetCount

  lst_DC.Clear
  
  For i = 1 To objDDE.GetCount
    lst_DC.AddItem objDDE.GetDescription(i) & _
          " - " & objDDE.GetName(i) & " - " & _
          objDDE.GetGuid(i) & " - MonitorHandle:" & _
          objDDE.GetMonitorHandle(i)
  Next i

  lst_DC.ListIndex = 0
  GetDDIdentifier
  Exit Sub

ERROUT:
  MsgBox "Fehler beim Einlesen der Anzeigentreiber.", vbExclamation
  End
End Sub

Private Sub GetDDIdentifier()
  On Error GoTo ERROUT

  Set objDDI = Nothing
  Set objDD7 = Nothing

  Set objDD7 = _
      objDX7.DirectDrawCreate(objDDE.GetGuid(lst_DC.ListIndex + 1))
  Set objDDI = objDD7.GetDeviceIdentifier(DDGDI_DEFAULT)

  lbl_Description.Caption = "Bezeichnung: " & objDDI.GetDescription
  lbl_DCID.Caption = "Device-ID: " & objDDI.GetDeviceId
  lbl_DCIdentifier.Caption = "Device-Indentifier: " & _
      objDDI.GetDeviceIndentifier
  lbl_Driver.Caption = "Treiber: " & objDDI.GetDriver

  Exit Sub

ERROUT:
  MsgBox "Fehler beim Einlesen der GrafikkartenInfos.", _
    vbExclamation
  End
End Sub