Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        For Each scr As Screen In Screen.AllScreens
            TextBox1.AppendText(scr.Bounds.Size.ToString & Environment.NewLine)
        Next
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus