[asemshahen5]

PHP كود :

   Private Sub BtnScreenShot_Click(sender As System.Object, e As System.EventArgs) Handles BtnScreenShot.Click
        Dim img As New Bitmap(Width, Height)
        DrawToBitmap(img, New Rectangle(New Point(0, 0), Size))
        Dim opn As New SaveFileDialog
        opn.Filter = "*.png|*.png"
        If opn.ShowDialog = Windows.Forms.DialogResult.OK Then
            img.Save(opn.FileName, Imaging.ImageFormat.Png)
        End If
    End Sub