Codigos:

Private Sub Command1_Click()
ShockwaveFlash1.Movie = Text1.Text
ShockwaveFlash1.Play
End Sub

Private Sub Command2_Click() Call ShockwaveFlash1.SetVariable(Text2.Text, Text3.Text)
End Sub