Dim Rect As Rectangle = Screen.PrimaryScreen.Bounds
        Dim bmp As Bitmap = New Bitmap(200, 200), G As Graphics = _
          Graphics.FromImage(bmp)
        G.CopyFromScreen(ii, i, 0, 0, ds)

        bmp.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
        Dim bytes() As Byte = ms.ToArray
        hash1 = Hash.ComputeHash(bytes)

1 + 1 = 3 , fuer hinreichend gro?e 1.