كود تصدير الشـاشـــــــة

[font=Courier New]Public Function GetScreenSnapshot(ByVal activeWindowOnly As Boolean) As Drawing.Image[/font]
[font=Courier New]        My.Computer.Clipboard.Clear()[/font]
[font=Courier New]        Dim keys As String = "{PrtSc}" 'PrtSc = Print Screen Key[/font]
[font=Courier New]        If (activeWindowOnly) Then[/font]
[font=Courier New]            keys = keys.Insert(0, "%") '% = Alt[/font]
[font=Courier New]        End If[/font]
[font=Courier New]        SendKeys.SendWait(keys)[/font]

[font=Courier New]        Return My.Computer.Clipboard.GetImage[/font]
[font=Courier New]    End Function[/font]