flashmenu leri vbde nasıl kullanabilirim

flashmenu leri vbde nasıl kullanabilirim. Sitenin birinde şu şekilde bir kod gördüm
Private Sub Command1_Click()

ShockwaveFlash1.LoadMovie 1, App.Path & "\bluedot.swf"
ShockwaveFlash1.Movie = App.Path & "\bluedot.swf"
'ShockwaveFlash1.GotoFrame 1

End Sub

'you can play and pause the movie with a Play and Pause menu item
Private Sub mnuPlay_Click()

Select Case mnuPlay.Caption
    Case "&Play"
        ShockwaveFlash1.Playing = True
        mnuPlay.Caption = "&Pause"
    Case "&Pause"
        ShockwaveFlash1.Playing = False
        mnuPlay.Caption = "&Play"
End Select

End Sub