Getting still image preview of screen saver

[eL_NiNo]

I'm looking for a way to let my users preview a screen saver (.scr) without having to run it;

I can show in preview modes many screen savers simultaneously but i would like to have a still imaeg instead, any hint ?

Here's how I get it to work right now but i'ts quite inneficient.

Private Sub Form_Load()
pid = Shell("c:\ss3dfo.scr /p " & Picture2.hWnd)
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
   phnd = OpenProcess(PROCESS_TERMINATE, 0, pid)
   If phnd <> 0 Then
     ' We now are able to close the process by phnd
      BitBlt p5.hDC, 0, 0, 1000, 1000, Picture2.hDC, 0, 0, vbSrcCopy
      Call TerminateProcess(phnd, 0)
      Call CloseHandle(phnd) 'Clean up after ourselves
   End If
   Timer1.Enabled = False
End Sub

Please help me to get it right =)