Dim AllDispModes As DevModeHolder
Dim curmode As Integer
Dim i As Variant
Dim bpptype As String

AllDispModes = GetAllDispModes
curmode = GetCurDispMode(AllDispModes, hDC)

For i = 0 To UBound(AllDispModes.DevModes)
Select Case AllDispModes.DevModes(i).dmBitsPerPel
Case 4: bpptype = "16 färger"
Case 8: bpptype = "256 färger"
Case 16: bpptype = "High Color"
Case 24, 32: bpptype = "True Color"
End Select

Debug.Print bpptype, Format$(AllDispModes.DevModes(i).dmPelsWidth, _
" 000 x") & Format$(AllDispModes.DevModes(i).dmPelsHeight, " 000"), _
Format$(AllDispModes.DevModes(i).dmBitsPerPel, " 00"), IIf(i = _
curmode, "Current", "")
Next
End
För att sätta inställningen:
SetCurDispMode AllDispModes.DevModes(5)