インターネットでしらべたのですが、全然動作しません。お願いします。
Declare Function GetDIBits Lib "gdi32.dll" (ByVal hdc As Integer, ByVal hbmp As Integer, ByVal uStartScan As Integer, _
ByVal cScanLines As Integer, lpvBits As Integer, lpbi As BITMAPINFO, _
ByVal uUsage As Integer) As Integer
・
・
・
Dim bmp As BITMAP, x As Long, y As Long
       
        Dim w As Integer, h As Integer
        Dim Pic As Integer()
        Dim TextureImg As Integer
        Dim bi24BitInfo As New BITMAPINFO


        If Dir(Filename) = "" Then
            MsgBox("loadBMP: file not found.")
            End
        End If


        With Pict
            .Image = Image.FromFile(Filename)

            .Refresh()
            w = .ClientSize.Width
            h = .ClientSize.Height


        End With
        


        With bi24BitInfo.bmiHeader
            .biBitCount = 24
            .biCompression = 0
            .biPlanes = 1
            .biSize = Len(bi24BitInfo.bmiHeader)
            .biWidth = w
            .biHeight = h
           
        End With
  GetDIBits(Pict.CreateGraphics.GetHdc.ToInt32, Pict.Handle, 0, h, TextureImg, bi8BitInfo, 0)