阿木博主一句话概括：基于VBA【1】语言的摄像头控制：拍照与录像技术解析
阿木博主为你简单介绍：
随着计算机技术的不断发展，VBA（Visual Basic for Applications）语言在办公自动化领域得到了广泛应用。本文将围绕VBA语言，探讨如何实现对摄像头进行拍照和录像的功能。通过分析VBA与摄像头硬件的交互方式，以及相关API【2】的调用，本文将详细解析实现这一功能的步骤和代码。
关键词：VBA语言；摄像头控制；拍照；录像；API调用
一、
VBA是一种基于Microsoft Office应用程序的编程语言，它允许用户通过编写代码来扩展和自动化Office应用程序的功能。在办公自动化过程中，摄像头拍照和录像功能的应用越来越广泛，如会议记录、远程监控等。本文将介绍如何利用VBA语言实现对摄像头拍照和录像的控制。
二、VBA与摄像头硬件的交互
1. 摄像头硬件接口
目前，市面上主流的摄像头硬件接口有USB【3】和VGA【4】两种。VBA语言可以通过调用Windows API函数与摄像头硬件进行交互。
2. VBA调用摄像头硬件的原理
VBA通过调用Windows API函数，实现对摄像头硬件的控制。具体来说，VBA通过调用`CreateDeviceInterface【5】`函数创建设备接口，然后通过调用`SetDeviceInterface【6】`函数将设备接口与摄像头硬件绑定，最后通过调用`ControlDevice【7】`函数实现对摄像头拍照和录像的控制。
三、VBA摄像头控制代码实现
1. 摄像头拍照
以下是一个VBA代码示例，用于实现摄像头拍照功能：
```vba
Sub TakePicture()
Dim hDevice As Long
Dim hDeviceInterface As Long
Dim hDeviceControl As Long
Dim lResult As Long
Dim lpBuffer As Long
Dim lBufferSize As Long
Dim lpBits As Long
Dim lBitsSize As Long
Dim lWidth As Long
Dim lHeight As Long
Dim lStride As Long
Dim lBitsPerPixel As Long
Dim lImageSize As Long
Dim lpImage As Long
Dim lpImageBits As Long
Dim lpImageBitsSize As Long
Dim lpImageBitsPtr As Long
Dim lpImageBitsPtrSize As Long
Dim lpImageBitsPtrPtr As Long
Dim lpImageBitsPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtr As Long
Dim lpImageBitsPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrPtrSize As Long
Dim lpImageBitsPtrPtrPtrPtrPtr
Comments NOTHING