Class ScreenRes
 
<StructLayout(LayoutKind.Sequential)> _
    Public Structure DEVMODE
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> _
        Public dmDeviceName As String
        Public dmSpecVersion As Short
        Public dmDriverVersion As Short
        Public dmSize As Short
        Public dmDriverExtra As Short
        Public dmFields As Integer
        Public dmOrientation As Short
        Public dmPaperSize As Short
        Public dmPaperLength As Short
        Public dmPaperWidth As Short
        Public dmScale As Short
        Public dmCopies As Short
        Public dmDefaultSource As Short
        Public dmPrintQuality As Short
        Public dmColor As Short
        Public dmDuplex As Short
        Public dmYResolution As Short
        Public dmTTOption As Short
        Public dmCollate As Short
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> _
        Public dmFormName As String
        Public dmLogPixels As Short
        Public dmBitsPerPel As Short
        Public dmPelsWidth As Integer
        Public dmPelsHeight As Integer
        Public dmDisplayFlags As Integer
        Public dmDisplayFrequency As Integer
        Public dmICMMethod As Integer
        Public dmICMIntent As Integer
        Public dmMediaType As Integer
        Public dmDitherType As Integer
        Public dmReserved1 As Integer
        Public dmReserved2 As Integer
        Public dmPanningWidth As Integer
        Public dmPanningHeight As Integer
    End Structure
 
    Private Declare Function EnumDisplaySettings Lib "user32.dll" Alias _
      "EnumDisplaySettingsA" _
            (ByVal deviceName As String, ByVal modeNum As Integer, ByRef _
            devMode As DEVMODE) As Integer
 
Sub ShowScrenRes()
Dim deviceName As String 
            deviceName = Screen.PrimaryScreen.DeviceName
            Dim dm As New DEVMODE()
            dm.dmDeviceName = New String(New Char(31) {})
            dm.dmFormName = New String(New Char(31) {})
            dm.dmSize = CShort(Marshal.SizeOf(dm))
            Dim counter As Integer = 0
 
            EnumDisplaySettings(deviceName, -1, dm)
MsgBox("Auflösung die Eingestellt ist: " & dm.dmPelsHeight & " X " & _
  dm.dmPelsWidth)
End Sub
 
End Class