Option Compare Binary
Option Explicit

'■StartingScreenに関する事項
'１）フォーム自動表示に関して
'起動項目に「startingscreen」を指定する
'２）イベントプロシージャー
'「Load/読み込み時」イベント内で次の動作を規定の順番に行う
'１）ラベルへバージョン番号を表示する
'２）フォームを強制的に表示させる（※１）
'３）リンクチェック、バージョンチェックを行う
'「Timer」イベントで次の動作をさせる
'（始動タイミングは２秒）
'１）startupscreenを閉じる
'２）メニューフォームを開く

'■「印刷」ダイアログの表示
'DoCmd.RunCommand acCmdPrint

'■最適化ダイアログ表示
'DoCmd.RunCommand acCmdCompactDatabase

'■ブラウザをフォームへ埋め込む
'アクティブxオブジェクトのマイクロソフトウェブブラウザーを挿入し、名前を画面にした場合
' 画面.Navigate "http://www.tosei-e.asn.ed.jp/~hokuto/ahet/ver.txt"
' Me!テキスト.Value = PrintHttpDoc("http://www.tosei-e.asn.ed.jp/~hokuto/ahet/ver.txt")

Private Sub コマンド0201_Click()
Dim ctlCurrentControl As Control
Set ctlCurrentControl = Screen.ActiveControl
Call push(ctlCurrentControl.name)
End Sub