Λοιπόν εβρέθει η απάντηση!
πρέπει να υλοποιήσετε τη μέθοδο flash Call πχ :
Private Sub test_FlashCall(ByVal sender As Object, ByVal e As AxShockwaveFlashObjects._IShockwaveFlashEvents_FlashCallEvent) Handles test.FlashCall
MsgBox(e.request.ToString)
End Sub
όπου "test" το όνομα του AxShockwaveFlash Object