窗体:Form1 控件:Label1模块声明:
Option ExplicitPublic Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SystemTime)
Type SystemTime
 wYear As Integer
 wMouth As Integer
 wDay As Integer
 wHour As Integer
 wMinute As Integer
 wSecond As Integer
End Type
窗体声明:Option ExplicitPrivate Sub Form_Load()
Dim SysTime As SystemTime
Dim TotalDate$, TotalTime$GetSystemTime SysTime
TotalDate$ = Str$(SysTime.wYear) & Str$(SysTime.wMouth) & Str(SysTime.wDay)
TotalTime$ = Str$(SysTime.wHour) & Str$(SysTime.wMinute) & Str$(SysTime.wSecond)
Label1.Caption = TotalDate$ + TotalTime$
End Sub在调试过程中正常,生成可执行文件后,提示“非法操作”