Option Explicit
Private Sub Form_Load()
Dim wbitmap '定义变量
Me.AutoRedraw = True '使窗体能够自动重绘
wbitmap = CreateCompatibleBitmap(Me.hdc,0) '建立一个位图，高度和宽度均为0
SelectObject Me.hdc,wbitmap '将建立的位图放到设备环境中
Me.Refresh '重绘窗体
End Sub
Option Explicit
Public Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long,ByVal nWidth As Long,ByVal nHeight As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long,ByVal hObject As Long) As Long
'CreateCompatibleBitmap 函数功能：该函数创建与指定的设备环境相关的设备兼容的位图。
'函数原型：HBITMAP CreateCompatibleBitmap(HDC hdc,int nWidth,int nHeight)；
'参数： hdc： 设备环境句柄。
'nWidth：指定位图的宽度，单位为像素。 nHeight：指定位图的高度，单位为像素。
'http://baike.baidu.com/view/1080369.htm
'SelectObject 函数功能：该函数选择一对象到指定的设备上下文环境中，该新对象替换先前的相同类型的对象。
' 函数原型：HGdioBJ SelectObject(HDC hdc,HGdioBJ hgdiobj)；
'参数：hdc：设备上下文环境的句柄。 hgdiobj：被选择的对象的句柄，该指定对象必须由如下的函数创建。
'位图：CreateBitmap,CreateBitmapIndirect,CreateCompatible Bitmap,CreateDIBitmap,CreateDIBsection
'（只有内存设备上下文环境可选择位图，并且在同一时刻只能一个设备上下文环境选择位图）。
' http://baike.baidu.com/view/1080552.htm