Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles MyBase.Load
 
        xWin.Movie = "D:\test.swf"
        xWin.Left = 0
        xWin.Top = 0
        xWin.Height = 400
        xWin.Width = 550
        xWin.Play()
    End Sub
 
    Private Sub xWin_FSCommand(ByVal command As String, ByVal args As String)
        MsgBox(args)
    End Sub