Получить список используемых разрешений для видеокарты

Imports System
Imports System.Linq
Imports System.Runtime.InteropServices
Imports System.Windows.Forms
Public Class Form1
    Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Integer, ByVal iModeNum As Integer, ByRef lpdmode As DEVMODE) As Boolean
    'Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (ByRef DEVMODE As DEVMODE, ByVal flags As Integer) As Integer
 
    Const ENUM_CURRENT_SETTINGS As Integer = -1
    Const CDS_UPDATEREGISTRY As Integer = &H1
    Const CDS_TEST As Long = &H2
 
    Const CCDEVICENAME As Integer = 32
    Const CCFORMNAME As Integer = 32
 
    Const DISP_CHANGE_SUCCESSFUL As Integer = 0
    Const DISP_CHANGE_RESTART As Integer = 1
    Const DISP_CHANGE_FAILED As Integer = -1
 
    'Public Const dm_BITSPERPEL As Integer = &H40000
    'Public Const dm_PELSWIDTH As Integer = &H80000
    'Public Const dm_PELSHEIGHT As Integer = &H100000
    'Public Const dm_DISPLAYFLAGS As Integer = &H200000
 
    <StructLayout(LayoutKind.Sequential)> Public Structure DEVMODE
        <MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=CCDEVICENAME)> 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
        <MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=CCFORMNAME)> Public dmFormName As String
        Public dmUnusedPadding As Short
        Public dmBitsPerPel As Short
        Public dmPelsWidth As Integer
        Public dmPelsHeight As Integer
 
        Public dmDisplayFlags As Integer
        Public dmDisplayFrequency As Integer
    End Structure
 
    Dim intX As Integer = Screen.PrimaryScreen.Bounds.Width
    Dim intY As Integer = Screen.PrimaryScreen.Bounds.Height
 
    Public Sub W3ResChanger_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
        Dim DevM As DEVMODE
 
        DevM.dmDeviceName = New [String](New Char(32) {})
        DevM.dmFormName = New [String](New Char(32) {})
        DevM.dmSize = CShort(Marshal.SizeOf(GetType(DEVMODE)))
 
        Dim dMode = -1
        'While 0 <> 
        Do While EnumDisplaySettings(Nothing, dMode, DevM) = True
            'Dim lResult As Integer
            If DevM.dmPelsWidth > 640 Then
                LVAdd(DevM)
            End If
            dMode += 1
            'End While
        Loop
    End Sub
 
    'vars set in load
    Private Sub LVAdd(DevM)
        Dim currres As String
 
        If DevM.dmPelsHeight = intX And DevM.dmPelsWidth = intY Then
            currres = "Monitor Resolution"
        Else
            currres = ""
        End If
 
        ListBox1.Items.Add(CStr(DevM.dmPelsWidth) & " X " & CStr(DevM.dmPelsHeight) & CStr(currres))
        If currres <> "" Then
            ListBox1.SelectedItem = True
        End If
    End Sub
 
End Class

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.AddRange(GetDisplayResolutions_Array)
    End Sub

label.text = label.text & (CStr(DevM.dmPelsWidth) & " X " & CStr(DevM.dmPelsHeight) & 'код перевода строки'

 Public tX As Integer = (CStr(DevM.dmPelsWidth) & " X " & CStr(DevM.dmPelsHeight) & "")

Dim Resolution() = GetDisplayResolutions_Array
Label1.Text = Join(Resolution, vbCrLf)

CStr(DevM.dmPelsWidth) & "x" & CStr(DevM.dmPelsHeight) & "x" & CStr(DevM.dmColor) & " " & CStr(DevM.dmDisplayFrequency) & " Hz"