Hola, proba esto..

Option Explicit
 
Private Declare Function PrintWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal hdcBlt As Long, ByVal nFlags As Long) As Long
Const PW_CLIENTONLY = &H1
 
Private Sub Timer1_Timer()
    PrintWindow &H40176, Me.hDC, 0
End Sub

lo probe con un video de youtube y anda...ponele el handle del reproductor de youtube para probar o la ventana del navegador.

saludos.

Option Explicit
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function PrintWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal hdcBlt As Long, ByVal nFlags As Long) As Long
Const PW_CLIENTONLY = &H1
 
Private Sub Timer1_Timer()
Dim Ret As Long
 
Ret = GetForegroundWindow()
 
Me.AutoRedraw = True
If (PrintWindow(Ret, Me.hDC, 0) = True) Then
    Me.Refresh
    Debug.Print "Print Realizada"
    Me.SetFocus
Else
    Debug.Print "Error"
End If
 
Timer1.Enabled = False
 
End Sub
 

Efectivamente me captura solo la imagen de los videos de youtube, del reproductor windows u otro sale todo negro y de la camara web no lo pude probar.

Parece que no especifique bien lo que intento hacer con su ayuda.
Quiero hacer una captura de toda la pantalla por ejemplo 1024x768 al igual que lo hace la tecla ImpPant la cual no toma los videos y muestra todo negro, algo asi como los keylogger que toman una foto de la pantalla para espiar al usuario.

hasta donde yo se no se puede, se que es un color RGB(16, 0, 16) y que el reproductor pinta (no se de que forma) un area determinada de la pantalla que contenga esos colores.

Saludos.