Dim fullRect As Rectangle = Screen.PrimaryScreen.Bounds Dim rects As New Dictionary(Of String, Rectangle)() For Each scr As Screen In Screen.AllScreens rects.Add(scr.DeviceName, scr.Bounds) fullRect = Rectangle.FromLTRB( _ Math.Min(fullRect.Left, scr.Bounds.Left), _ Math.Min(fullRect.Top, scr.Bounds.Top), _ Math.Max(fullRect.Right, scr.Bounds.Right), _ Math.Max(fullRect.Bottom, scr.Bounds.Bottom) _ ) Next
For Each scr As Screen In Screen.AllScreens Dim rMonitor As New RECT(scr.Bounds) FillRect(hScreenDC, rMonitor, GetStockObject(NULL_BRUSH)) Dim rDraw As New RECT(rMonitor.Left + 50, rMonitor.Top + 50, rMonitor.Left + 200, rMonitor.Top + 200) Next UpdateWindow(IntPtr.Zero)