Me.Left = 0
        Me.Top = 0
        Me.Height = Screen.PrimaryScreen.WorkingArea.Height
        Me.Width = Screen.PrimaryScreen.WorkingArea.Width

        Dim width As Integer
 
        ' Breite zusammenzählen
        For Each scre As Screen In Screen.AllScreens
            width += scre.WorkingArea.Width
        Next
 
        Me.Left = 0
        Me.Top = 0
        Me.Height = Screen.PrimaryScreen.WorkingArea.Height ' Höhe des 1. 
        ' Bildschrims verwenden
        Me.Width = width

fg viperbone