Visual Basic - salvar screen

Alguien sabe cómo se puede guardar la pantalla actual en un fichero. Por ejemplo, en un momento determinado surge un error y en la rutina que lo gestiona me interesa salvar la pantalla a fichero para más tarde analizar la situación.

Muchas gracias a todos. Luis...

En un modulo .BAS pones lo siguiente ...

'''''''''''''''''''
Private Declare Function PrintWindow Lib "user32" ( _
ByVal hwnd As Long, ByVal hdcBlt As Long, _
ByVal nFlags As Long) As Long

Public Sub Captura_Pantalla(Formulario As Form, err As ErrObject)
Dim oPictureBox As PictureBox

Set oPictureBox = Formulario.Controls.Add("vb.PictureBox", "oPictureBox1")
oPictureBox.AutoRedraw = True
oPictureBox.BorderStyle = vbBSNone
oPictureBox.Height = Formulario.Height
oPictureBox.Width = Formulario.Width


Call PrintWindow(Formulario.hwnd, oPictureBox.hDC, 0)

SavePicture oPictureBox.Image, App.Path & "\" & Format(Now, "yyyymmdd_hhmmss") & _
"_" & Formulario.Name & _
"_Error_" & err.Number & ".bmp"

Formulario.Controls.Remove "oPictureBox1"
End Sub

'''''''''''''''''''''''''''''

El SUB generara un BMP con la pantalla indicada en el PATH de tu aplicacion.

Desde tu aplicacion, al generarse un error llamas al SUB pasandole el fomulario y el Error generado ...

Ejemplo ...

Private Sub Command1_Click()
Dim nX As Long

On Error GoTo Error_Generico

' Tus instrucciones ...

Exit Sub

Error_Generico:
Call Captura_Pantalla( Me, Err )
MsgBox "Se genero pantalla de error !"

End Sub