Visual Basic para Aplicaciones - Print Pantalla

Me gustaría hacer un programa en visual basic que cuando lo ejecutes se realice un print, una foto, de la pantalla del ordenador en ese momento. No se que componentes debo agregar, ni que componentes.
Alguien puede ayudarme un poco o darme alguna orientacion?

Hola

Para lo siguiente coloca un formulario y cambia su propiedad AutoRedraw=True y coloca el siguiente codigo


Option Explicit

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDc As Long, ByVal x As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDc As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function StretchBlt Lib "gdi32" (ByVal hDestDc As Long, ByVal x As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDc As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal wSrc As Long, ByVal hSrc As Long, ByVal dwRop As Long) As Long
Const SRCCOPY = &HCC0020

Sub Capture(Frm As Form)
Dim rc As Long, Height As Long, Width As Long, dtHDC As Long
Dim Pic As New StdPicture


Width = Screen.Width / Screen.TwipsPerPixelX
Height = Screen.Height / Screen.TwipsPerPixelY
dtHDC = GetDC(GetDesktopWindow())
rc = BitBlt(GetDC(Pic.Handle), 0, 0, Width, Height, dtHDC, 0, 0, SRCCOPY)
rc = StretchBlt(Frm.hDC, 0, 0, Width, Height, GetDC(Pic.Handle), 0, 0, Width, Height, SRCCOPY)
End Sub
Private Sub Form_Load()
Capture Me
App.TaskVisible = False
End Sub


Lo anterior toma una foto de la pantalla y la coloca en tu formulario

Esto lo probe y funciono
Saludos
www.theemulator.tk

GRACIAS Cristias, Funciona perfectamente, pero lo que quiero es guardar esa imagen como un archivo. Es decir programaré el ejecutable del programa para que se ejecute a ciertas horas y los que quiero es que guarde las fotos de todas las veces que se ejecute.
Se te ocurre como se puede hacer?

Hola
Si necesitas guardar la imagen puedes usar esto

SavePicture Me.Picture, "C:\Dibujo.bmp"

Saludos