Public Class Form1
    Const NOTSRCCOPY = &H33008
    Const NOTSRCERASE = &H1100A6
    Private Const SRCAND = &H8800C6
    Const SRCCOPY = &HCC0020
    Private Const SRCERASE = &H440328
    Private Const SRECINVERT = &HEE0086
    Private Declare Sub sleep Lib "kernel32" (ByVal dwmilliseconds As Long)
    'API函数初始化
    Private Declare Function Bitblt Lib "gdi32" (ByVal hDestDC As IntPtr, ByVal x As Integer, ByVal y As Integer, _
                                                 ByVal nwidth As Integer, ByVal nheight As Integer, ByVal hSrcDC As IntPtr, ByVal xSrc As Integer, _
                                                 ByVal ySrc As Integer, ByVal dwPop As Integer) As Integer
    Dim k, i, j, w, h As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim hdc2 As IntPtr
        Dim hdc1 As IntPtr
        hdc2 = Me.PictureBox2.CreateGraphics.GetHdc
        hdc1 = Me.PictureBox1.CreateGraphics.GetHdc
        w = Me.PictureBox1.Size.Width
        h = Me.PictureBox1.Size.Height
        For i = 0 To w Step 1
            Call Bitblt(hdc2, 0, 0, i, h, hdc1, w - i, 0, SRCCOPY)
            sleep(10)
        Next
    End Sub
End Class
该程序为将picturebox1中的图像分批复制到picturebox2中，实现图像飞入效果，可程序执行到Call Bitblt(hdc2, 0, 0, i, h, hdc1, w - i, 0, SRCCOPY)
出现《无法在 DLL“gdi32”中找到名为“Bitblt”的入口点》错误，求指点！！！！！

Bitblt->BitBlt
是有区分大小写的
Sleep(10)->System.Threading.Thread.Sleep(10)