Public Function currentResolution()
        ' Current Resolution
        Dim func As Integer
        Dim nScreenWidth As Integer
        Dim nScreenHeight As Integer
 
        With Screen.PrimaryScreen.Bounds
            nScreenWidth = .Width
            nScreenHeight = .Height
        End With
 
        'Check and mark button
        Select Case func
            Case 1
                If nScreenWidth = 1024 And
                    nScreenHeight = 768 Then
                    Me.btn_1024x768.BackColor = Color.Green
                End If
            Case 2
                If nScreenWidth = 1280 And
                    nScreenHeight = 1024 Then
                    Me.btn_1280x1024.BackColor = Color.Green
                End If
            Case 3
                If nScreenWidth = 1366 And
                    nScreenHeight = 768 Then
                    Me.btn_1366x768.BackColor = Color.Green
                End If
            Case Else
                MsgBox("Not supported system! Please contact your local" & _
                  "Administrator!".ToString, MsgBoxStyle.OkOnly)
        End Select
    End Function
 
    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As EventArgs) _
      Handles Me.Shown
        currentResolution()
    End Sub

_________________________________________________________________________________

Systemintegrator der Spa? am Programmieren gefunden hat!
Bitte nicht hauen, wenn ich etwas Falsches, oder Quatsch von mir gebe ;)