```#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
$main1 = GUICreate("万年历", 620, 450, -1, -1, BitOR($WS_SYSMENU, $WS_CAPTION))
 ;创建个flash控件，加载万年历
 ;GUISetState(@SW_SHOW)
 Local $oCalendar = ObjCreate("ShockwaveFlash.ShockwaveFlash")
 FileInstall("wnl5.swf", @TempDir & "\wnl5.swf")
 If IsObj($oCalendar) Then
  GUICtrlCreateObj($oCalendar, 0, 0, 620, 450)
  $oCalendar.SAlign = "T" ;对齐 顶部
  $oCalendar.Movie = @TempDir & "\wnl5.swf"
  $oCalendar.Loop = True
 EndIf
 GUISetState(@SW_SHOW)
 Do
  $msg1 = GUIGetMsg()
  If $msg1 = $GUI_EVENT_CLOSE Then ExitLoop
 Until GUIGetMsg() = -3

```




```