Tjopps.

Går det att ta screenshot på ett fönster när man trycker på en knapp,
och att bilden sen sparas i programmets katalog (app.path) med ett
automatiserat filnamn, t.ex pic0001.bmp osv.

(bara formen ska sparas som bild, tack bj för att du påpekade detta =) )

Tack på förhand.

/Hjorten

Eftersom ingen har svarat får jag väl ta på mig ansvaret:
<code>
Option Explicit

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub Command1_Click()
Dim Index As Long
Dim FileName As String
Picture1.Move 0, 0, ScaleWidth, ScaleHeight
BitBlt Picture1.hDC, 0, 0, Picture1.ScaleWidth, Picture1.Height, Me.hDC, 0, 0, vbSrcCopy
Do
Index = Index + 1
FileName = App.Path & "\pic" & Right("000" & Index, 4) & ".bmp"
Loop While Len(Dir(FileName))
SavePicture Picture1.Image, FileName
End Sub

Private Sub Form_Load()
Picture1.Visible = False
Picture1.AutoRedraw = True
Picture1.ScaleMode = vbPixels
End Sub
</code>

Tack Andreas.
Det fungerade perfekt!

/Hjorten