Private Sub currentResolution()
        ' Current Resolution
        Dim nScreenWidth As Integer
        Dim nScreenHeight As Integer
 
        With Screen.PrimaryScreen.Bounds
            nScreenWidth = .Width
            nScreenHeight = .Height
        End With
 
        Dim Aufloesung As String = nScreenWidth & "x" & nScreenHeight
 
        'Check and mark button
        Select Case Aufloesung
            Case "1024x768"
                Me.btn_1024x768.BackColor = Color.Green
            Case "1280x1024"
                Me.btn_1280x1024.BackColor = Color.Green
            Case "1366x768"
                Me.btn_1366x768.BackColor = Color.Green
            Case "1680x1050"
                Me.btn_1680x1050.BackColor = Color.Green
            Case Else
                MsgBox("Not supported system! Please contact your local" & _
                  "Administrator!".ToString, MsgBoxStyle.OkOnly)
        End Select
 
 
    End Sub
 
    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As EventArgs) _
      Handles Me.Shown
        currentResolution()
    End Sub

EALA FREYA FRESENA