VB进行画图是有些慢,调用API函数吧。我专门给你写了一个类模块,你添加一个类模块,命名为ClassDraw,然后在类模块中加入下面的代码:Option ExplicitPrivate Declare Function GetDC Lib "user32" ( _
ByVal hWnd As Long _) As LongPrivate Declare Function ReleaseDC Lib "user32" ( _
ByVal hWnd As Long, _
ByVal hDC As Long _) As LongPrivate D