Option Explicit
Private Sub Form_Load()
Dim wbitmap '定义变量
Me.AutoRedraw = True '使窗体能够自动重绘
wbitmap = CreateCompatibleBitmap(Me.hdc, 0, 0) '建立一个位图,高度和宽度均为0
SelectObject Me.hdc, wbitmap '将建立的位图放到设备环境中
Me.Refresh '重绘窗体
End Sub
Option Explicit
Public Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWid