Visual Basic - screenshot

tengo un codigo que tira un screen shot pero deseo que tire el screen solo a la pantalla activa como si fuera alt+print scren i si es posible que la tire sin el tool option osea la barita te mininize close maximixal

el codigo que tengo es como lo modifico

Option Explicit

'Api para generar un evento de tecla, en este caso Print Screen
''''''''''''''''''''''''''''''''''''''''''''''''''''''
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 el BMP
''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Capturar_Guardar(Path As String)

' borra el portapapeles
Clipboard.Clear

' Manda la pulsación de teclas para capturar la imagen de la pantalla
Call keybd_event(44, 2, 0, 0)

DoEvents
' Si el formato del clipboard es un bitmap
If Clipboard.GetFormat(vbCFBitmap) Then

'Guardamos la imagen en disco
SavePicture Clipboard.GetData(vbCFBitmap), Path
MsgBox " Captura generada en: " & Path, vbInformation
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
Else
MsgBox " Error ", vbCritical
End If

End Sub

Private Sub Command1_Click()
Call Capturar_Guardar("c:\pantalla.jpg")
End Sub

Private Sub Form_Load()
Command1.Caption = " Capturar pantalla "
End Sub

Saludos;
Aqui esta un poco de codigo:

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
keybd_event vbKeySnapshot, 0&, 0&, 0&
'Le decimos a window que se ponga trucha por que ya se copio una imagen al clipboard
DoEvents
End Sub

Link de Interes:
Videos Divertidos
http://kavallo3582.funpic.org

Noticias Tecnologicas, manuales, etc.
http://contenidodesarrollo.blogspot.com