old VB6 :X
BitBlt is the fastest and usefull way for anything regarding painting..
Public 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
and to Draw:
BitBlt frmBitBlt.Picture, 50, 50, 300, 300, frmBitBlt.Land.Picture, 0, 0, vbSrcCopy
More details here:
http://www.vbforums.com/showthread.php?t=271014