1. Flashでボタンを作成します。これは、静的ボタン（テキストなど）または動的ボタン（アニメーションなど）にすることができます。
2.ボタンのアクションにコードを記述します。
（リリース）{
fscommand（ " Start "） // コマンド "Start"を送信します
}
（リリース）{
fscommand（ " End "） // コマンド "End"を送信します
}
3.作成したFlashをswfアニメーションファイルとして公開します。
4.上記のファイルをVBプロジェクトの同じディレクトリに配置します。
5. VBにShockwave Flashコンポーネントを追加します。
6. VBでコードを記述します。
オプション明示的
プライベートサブForm_Load（）
Flash1.Movie =（App.Path＆ "\ start and end.swf"）
End Sub
Private Sub Flash1_fscommand（ByVal command As String、ByVal args As String）
If command = "Start" Then
'受信したコマンドが開始の場合
Flash2.Movie =（App.Path＆ "\ Animation.swf"）
'コマンドを実行
終了する場合
If command = "End" Then
'受信したコマンドが終了の場合
End
'コマンドの実行
終了する場合
End Sub
