Public Class ScreenRes
 
    Private Sub btn_1024x768_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_1024x768.Click
        Try
            Dim f As New Funktionen
            f.SetResolution(1024, 768, 32)
        Catch ex As Exception
            MsgBox("Fehler! Auflösung konnte nicht eingestellt werden!" + _
              Convert.ToString(ex), MsgBoxStyle.OkOnly)
        End Try
        currentResolution()
    End Sub
'...
'...
'...
'...
    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
 
        btn_1024x768.BackColor = Color.Empty
        btn_1280x1024.BackColor = Color.Empty
        btn_1366x768.BackColor = Color.Empty
        btn_1920x1080.BackColor = Color.Empty
 
        'Check and mark button
        Select Case Aufloesung
            Case "1024x768"
                Me.btn_1024x768.BackColor = Color.GreenYellow
            Case "1280x1024"
                Me.btn_1280x1024.BackColor = Color.GreenYellow
            Case "1366x768"
                Me.btn_1366x768.BackColor = Color.GreenYellow
            Case "1920x1080"
                Me.btn_1920x1080.BackColor = Color.GreenYellow
            Case Else
                lbl_res.Text = "Aktuelle Auflösung:" + nScreenWidth + "x" + _
                  nScreenHeight
        End Select
    End Sub
 
    Private Sub CheckRes(ByVal sender As Object, ByVal e As EventArgs) Handles _
      Me.Shown, MyBase.VisibleChanged
        currentResolution()
    End Sub

_________________________________________________________________________________

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