Type DEVMODE
Dim dmDeviceName(CCHDEVICENAME-1) As Byte
Dim dmSpecVersion As Integer
Dim dmDriverVersion As Integer
Dim dmSize As Integer
Dim dmDriverExtra As Integer
Dim dmFields As Long
'union {
Dim dmOrientation As Integer
Dim dmPaperSize As Integer
Dim dmPaperLength As Integer
Dim dmPaperWidth As Integer
'POINTL dmPosition;
Dim dmScale As Integer
Dim dmCopies As Integer
Dim dmDefaultSource As Integer
Dim dmPrintQuality As Integer
Dim dmColor As Integer
Dim dmDuplex As Integer
Dim dmYResolution As Integer
Dim dmTTOption As Integer
Dim dmCollate As Integer
Dim dmFormName(CCHFORMNAME-1) As Byte
Dim dmLogPixels As Integer
Dim dmBitsPerPel As Long
Dim dmPelsWidth As Long
Dim dmPelsHeight As Long
Dim dmDisplayFlags As Long
Dim dmDisplayFrequency As Long
Dim dmICMMethod As Long
Dim dmICMIntent As Long
Dim dmMediaType As Long
Dim dmDitherType As Long
Dim dmReserved1 As Long
Dim dmReserved2 As Long
Dim dmPanningWidth As Long
Dim dmPanningHeight As Long
End Type
ChangeDisplaySettings(lpDevMode As DEVMODE, ByVal dwFlags As Long) As Long