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 GetDC Lib "user32" (ByVal hwnd As Long) As Long
大概这个用法,自己修改把
ADD PICTURE1 AND PROGRESSBAR1
Private Sub Command1_Click()
A = BitBlt(GetDC(ProgressBar1.hwnd), 0, 0, ProgressBar1.Width, ProgressBar1.Height, Picture1.hDC, 0, 0, &HCC0020)
End Sub