screenshot

Tarvitset PictureBoxin ja OptionButtonit... ja lisäksi tietenkin kaikki nuo API komennot yms...
Tuon PictureBoxin AutoRedraw arvo pitää olla True. Muutenkin voit joutua säätämään jotain, mutta idean pitäisi toimia...

Private Sub ScreenShot()

Dim lhWnd As Long
Dim lhDC As Long
Dim lLeft As Long
Dim lTop As Long
Dim lWidth As Long
Dim lHeight As Long
Dim wplc As WINDOWPLACEMENT
Dim sName As String

sName = vbNullString

lLeft = 0
lTop = 0

'Koko näyttö
If Option1(0).Value Then
lhWnd = GetDesktopWindow()
lWidth = Screen.Width
lHeight = Screen.Height
sName = "Test_scr"
'Aktiivi ikkuna
ElseIf Option1(1).Value Then
lhWnd = GetActiveWindow()
Call GetWindowPlacement(lhWnd, wplc)
'Lasketaan formin koko (koko pixeleinä -> muutetaan Twipeiksi)
lWidth = (wplc.rcNormalPosition.Right - wplc.rcNormalPosition.Left) * Screen.TwipsPerPixelX
lHeight = (wplc.rcNormalPosition.Bottom - wplc.rcNormalPosition.Top) * Screen.TwipsPerPixelY
sName = "Test_win"
End If

Picture1.Width = lWidth
Picture1.Height = lHeight

lhDC = GetWindowDC(lhWnd)

'Kopioi PictureBoxiin
Call BitBlt(Picture1.hdc, 0, 0, _
lWidth, lHeight, lhDC, _
lLeft, lTop, vbSrcCopy)

'Tallennetaan kuva
Call SavePicture(Picture1.Image, "c:\temp\" & sName & ".bmp")

Call ReleaseDC(lhWnd, lhDC)
End Sub