VB与flash交互

作品展期间确实是很忙，每天很累，但是真的是很充实。和小伙伴一起努力做下来一个作品，收获也很多。
VB与flash交互算是作品展中比较重要并且难的问题，之前一直在找好看的flash素材，找到后便兴奋好久，觉得我的作品用上哪个哪个flash会变得更酷，我会做出来最炫酷的作品这样的想法，后来才发现真的是太异想天开了，好多特别炫酷的flash动画就是改不了文本，好不容易找到可以用的最后按钮用不了，要么就是写好的代码在VB里就是不行。反正就是遇到各种问题。
找了好几天找到几个可以用的flash主菜单素材后又不知道怎样与VB交互，最后请教了鑫超师父，再经过自己的研究终于完美解决。
首先我们需要在flash中编写代码：

我理解这几行代码的意思就是在flash中我把这个按钮的command时间命名为“1”，然后在vb中代码如下：

在Form load（）事件下 Private Sub Form_Load() ShockwaveFlash1.Movie =
App.Path & "\flash\男生菜单.swf"        //flash相对地址

ShockwaveFlash1.Playing = True          //播放flash动画

End Sub

而在ShockwaveFlash1_FSCommand事件下就是VB与flash的基本原理了

Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByValargs As String)

If command = "1" Then         //如果command = “1”则 msgbox输出111
MsgBox "111"
End If
If command = "2" Then       //如果command = “2”执行以下语句
MsgBox "222"    End If
End If
If command = "3" Then
MsgBox "333"
End If
If command = "4" Then
平板支撑.Show
Me.Hide
End If
If command = "5" Then
MsgBox "555"
End If
If command = "6" Then
健身菜单.Show
Me.Hide
End If
End Sub