Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Dim Graph As Graphics = Me.CreateGraphics
        Dim rect As New Rectangle
        'Dopo di che creo l' oggetto RECT che contiene le dimensioni della finestra attiva sullo schermo e poi:
        Me.Width = rect.Right - rect.Left
        Me.Height = rect.Bottom - rect.Top
        Graph.CopyFromScreen(New Point(rect.Left, rect.Top), _
        New Point(0, 0), New Size(Me.Width, Me.Height))
    End Sub