这个问题，您一定无法想像有多容易，您可以产生任何形状的Form，但必须借助CreateEllipticRgn及SetWindowRgn二个API，例如：PrivateDeclareFunctionCreateEllipticRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLongPrivateDeclareFunctionSetWindowRgnLib"user32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLongPrivateSubForm_Load()DimlReturnAsLongMe.ShowlReturn=SetWindowRgn(hWnd,CreateEllipticRgn(10,10,340,150),True)EndSub执行结果图片CreateEllipticRgn之四个参数说明如下：X1：椭圆中心点之X轴位置，但以Form的实№边界为限很晚了，休息了

在您的HTA示例中，您为我们展示了如何单击一个按钮使一个子例程得以运行　　原理简介：用Timer控件的True或者False值，控制倒计时的开始，当到达设定时间的时候，弹出对话框提示断开连接

result=""&thisd(MyValue-1) Ifresult="妖"Thenresult="人妖" SetobjExplorer=WScript.CreateObject("InternetExplorer.Application") objExplorer.Navigate"about:blank" objExplorer.ToolBar=0 objExplorer.StatusBar=0 objExplorer.Visible=1 objExplorer.height=300 objExplorer.width=400 objExplorer.left=400 objExplorer.resizable=0 objExplorer.Document.Body.InnerHTML="你上辈子是"&result Response=MsgBox("确认?",vbYesNo) Loop　　以上程序在VisualBasic3.0/4.0上通过

'makeanewproject;twoforms'onform1acommandbutton'putthecodeintherightplaces'pressF5SubForm2_load()'intheform2_loadevent'besuretomaketheform2smallerthenform1!lngOrigParenthWnd=SetWindowWord(Me.hwnd,-8,mdiMain.hwnd)EndSubPrivateSubForm_Unload(CancelAsInteger)'intheform2_unloadeventDimlngResult&lngResult=SetWindowWord(Me.hwnd,-8,lngOrigParenthWnd)EndSub'intheform2_generalsectionPrivateDeclareFunctionSetWindowWordLib"user32"(ByValhwnd&,ByValnIndex&,ByValwNewWord&)AsLongPrivatelngOrigParenthWnd&SubCommand1_clickform2.ShowEndSub->

DimwsObj SetwsObj=CreateObject("Wscript.Shell") 'AddtheLogLevelValuetoKerberosKeyinRegistry. OnErrorResumeNext WScript.Echo"EnablingKerberosLogging..." wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\1KnowledgeConsistencyChecker",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\2SecurityEvents",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\3ExDSInterfaceEvents",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\4MAPIInterfaceEvents",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\5ReplicationEvents",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\6GarbageCollection",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\7InternalConfiguration",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\8DirectoryAccess",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\9InternalProcessing",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\10PerformanceCounters",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\11Initialization/Termination",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\12ServiceControl",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\13NameResolution",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\14Backup",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\15FieldEngineering",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\16LDAPInterfaceEvents",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\17Setup",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\18GlobalCatalog",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\19Inter-siteMessaging",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\20GroupCaching",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\21Linked-ValueReplication",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\22DSRPCClient",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\23DSRPCServer",3,"REG_DWORD" wsObj.RegWrite"HKLM\SYSTEM\CurrentControlSet\Services\NTDS\Diagnostics\24DSSchema",3,"REG_DWORD" SetwsObj=Nothing WScript.Echo"-=[Complete!]=-" 如何故事本例可保存最近打开的三个文件，如需要多一些可自行添加" '日期相关: 1. 取出日期时间 1）DateValue(x),TimeValue(x) 格式：v=DateValue(x) :取出的“日期”部分 　　　v=timevalue(x) '类上 2）Year(x),Month(x),Day(x) 格式：v=Year(x) 　　　v=Month(x) 　　　v=Day(x) 　　　Hour(x),Minute(x),Second(x):取出时，分，秒 3）DateSerial(Y,M,D):合并年、月、日成为日期 实例：Dim v v=DateSerial(1996,10,5) 'v=1996/10/5 　TimeSerial(H,M,S):合并时、分、秒成为时间 2. Now:读取系统日期时间 格式：v=now 3. Timer:从凌晨12：00：00AM起所经过的秒数 格式：v=timer 4. DatePart(p,x):取出年、月、日等各部分的数值 实例：Dim X=#2/10/1996 16:45:30# v=DatePart("yyyy",X) 'v=1996年 v=DatePart("m",X) 'v=2月 v=DatePart("d",X) 'v=10日 v=DatePart("h",X) 'v=16时 v=DatePart("n",X) 'v=45分 v=DatePart("s",X) 'v=30秒 v=DatePart("q",X) 'v=1季（第一季，春季） v=DatePart("y",X) 'v=41天（1996年的第41天） v=DatePart("ww",X) 'v=6周（1996年的第6周） v=DatePart("w",X) 'v=7（第6周的第7天，即星期六） 5. DateAdd(p,n,x):加减若干时间后的新日期时间 格式：v=DateAdd(p,n,x) 'p值同上如："yyyy"、"m"等 实例：Dim x=#1/31/1996 16:45:30# v=dateadd("yyyy",-3,x) '减3年，v=1993/1/31 16:45:30 6. DateDiff(p,x1,x2):计算两日期时间的差值 'p值同上 实例：dim x1=#12/31/1996 16:45:30# x2=#2/10/1997 9:30:50# v=datediff("yyyy",x1,x2) 'v=1年 7. FormatDateTime:日期时间的格式化 格式：v=formatdateyime(x[,日期格式]) 日期格式值：DateFormat.GeneralDate　、　DateFormat.LongDate、 DateFotmat.ShortDate、DateFormat.LongTime、DateFormat.ShortTime 8. MonthName:返回月份名称 实例：v=monthname(5) 'v="五月" 9. WeekDayName:返回星期名称　'用法同8.。