BitBlt

[TB]

Hi.

I want to know, how to use the BitBlt Call.
What exactly does this Call do?

[YoungBuck]

Simplest Example, put 2 picture boxes and command button on a form...

Option Explicit
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 Sub Command1_Click()
    BitBlt Picture2.hDC, 0, 0, Picture1.Width / Screen.TwipsPerPixelX, Picture1.Height / Screen.TwipsPerPixelY, Picture1.hDC, 0, 0, vbSrcCopy
    Picture2.Refresh
End Sub

Private Sub Form_Load()
    Picture1.AutoRedraw = True
    Picture2.AutoRedraw = True
    Set Picture1.Picture = LoadPicture("C:\Windows\Forest.bmp")
End Sub

Search this forum on BitBlt, this API call has been discussed in great detail numerous times, and Good Luck!