Getting Screen Resolution

Question

I need to change screen resolutions using my application.

How to:

1. Read current resolution
2. Changing it using my application and then returning

Answer 1

How to get current screen resolution

Public Function ScreenResolution() As String
        Dim intX As Integer = Screen.PrimaryScreen.Bounds.Width
        Dim intY As Integer = Screen.PrimaryScreen.Bounds.Height
        Return intX & " × " & intY
End Function

How to change current screen resolution — solution