Private Sub frmAuswahlrahmen_VisibleChanged(ByVal sender As Object, ByVal e _
    As System.EventArgs) Handles Me.VisibleChanged
        If Not Me.Visible Then
            Debug.Print(Me.Location.ToString & "--> " & Me.Size.ToString)
            Dim rct = New Rectangle(Me.Location.X, Me.Location.Y, Me.Width, _
              Me.Height)
            RaiseEvent AuswahlrahmenChanged(New Rectangle(Me.Location.X, _
            Me.Location.Y, Me.Width, Me.Height), Nothing)
            ' Test
            Using b As New Bitmap(rct.Width, rct.Height)
                Using g As Graphics = Graphics.FromImage(b)
                    g.CopyFromScreen(rct.Location, New Point(0, 0), New Size( _
                      rct.Width, rct.Height))
                End Using
                Clipboard.SetImage(b)
            End Using
        End If
    End Sub

Danke für die Hilfe

Gruß Christian