Cómo captuar un pantallazo del propio formulario en visual basic 6.0

Este código que coloco a continuación sirve para obtener una instantánea o captura de pantalla del formulario actual o si se modifica un poco, ocultando el formulario, permite obtener una imagen de la ventana activa.

'Api para generar un evento de tecla
Private Declare Sub keybd_event Lib "user32" ( _
    ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)

'recibe la ruta donde crear la imagen
Private Sub Capturar_Pantalla(path As String)
  
    'Captura la pantalla activa
    Call keybd_event(44, 1, 0, 0)
   
        DoEvents
   
    'Guardamos la imagen en disco
    SavePicture Clipboard.GetData, path
     
End Sub

Private Sub Command1_Click()
'Aca colocamos donde deseamos guardar la imagen. En este ejemplo se guarda en la misma carpata donde está guardado el proyecto.
 Dim path As String
    path = App.path & "\imagen" & ".jpeg"
Capturar_Pantalla (path)
End Sub