Here is a basic flash player I made in VB6.0 you can download the source code below.
Below is the current code!
I can't get the keyboard to interact with the flash control. However, I have noticed that if the screen is big enough you can use the control inside the flash movie to start, stop, etc.
'By Aaron "Nightwalker83" Spehr
Dim n As Integer
Private Sub File1_Click()
Private Sub Form_Load()
'Set the background colour, etc
Me.BackColor = &H80000008
Me.BorderStyle = Sizable
File1.Pattern = "*.swf"
File1.DragMode = 0
Private Sub Form_Unload(Cancel As Integer)
'Close the program
Private Sub ShockwaveFlash1_DragDrop(Source As Control, X As Single, Y As Single)
'This loads the movie
Call ShockwaveFlash1.LoadMovie(0, File1.Path + "\" + File1.FileName)
Private Sub Dir1_Change()
File1.Path = Dir1.Path
Private Sub Drive1_Change()
On Error GoTo err:
Dir1.Path = Drive1.Drive
MsgBox ("Please choose another drive!")
Check link below for any problems relating to getting the project to work correctly.
Just a word of warning though, use the above code with flash 10e or earlier, the other versions of flash 10 seem to have problems which, can be talked about in this thread.