Public Class Form1
  Inherits System.Windows.Forms.Form

Vom Windows Form Designer generierter Code

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click

    Dim wW, wH, sW, sH As Long

    'PrimärScreen
    TextBox1.Text = Screen.PrimaryScreen.ToString

    'Bildschirmauflösung
    sW = Screen.PrimaryScreen.Bounds.Size.Width
    sH = Screen.PrimaryScreen.Bounds.Size.Height
    Label2.Text = sW & " x " & sH

    'WorkingArea
    wW = Screen.PrimaryScreen.WorkingArea.Width
    wH = Screen.PrimaryScreen.WorkingArea.Height
    Label3.Text = wW & " x " & wH
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click

    Dim Index As Integer
    Dim UpperBound As Integer

    ' Alle Anzeigen (Bildschirme) im System ermitteln
    Dim Screens() As System.Windows.Forms.Screen = _
            System.Windows.Forms.Screen.AllScreens

    UpperBound = Screens.GetUpperBound(0)
    For Index = 0 To UpperBound
      ListBox1.Items.Add( _
          "Device Name: " + Screens(Index).DeviceName)
      ListBox1.Items.Add( _
          "Bounds: " + Screens(Index).Bounds.ToString())
      ListBox1.Items.Add( _
          "Type: " + Screens(Index).GetType().ToString())
      ListBox1.Items.Add("Working Area: " + _
          Screens(Index).WorkingArea.ToString())
      ListBox1.Items.Add("Primary Screen: " + _
          Screens(Index).Primary.ToString())
    Next

    Label1.Text = "Anzahl Bildschirme: " & CStr(UpperBound + 1)
  End Sub

  Private Sub Button3_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button3.Click
    Me.Close()
  End Sub
End Class