MediaPlayerComponent

[SuperGeek]

I am using MediaPlayer in a fixed picture box. When Cmd button is pressed the 1st time the Mediaplayer stays
within the box. When pressed the 2nd time the control buttons of media box appear (I do not need the control buttons) I have set all to false statements but no luck.
How can I reset the MediaPlayer.
----------------------------------------------------------
Private Sub CmdSnd_Click()
If CmdSnd.Caption = "Click Here To Watch" Then
On Error Resume Next

Dim getfilename As String

getfilename = "episode30.mpg"
Call PlaySound(getfilename, 0&, SND_Filename Or SND_LOOP)
mp.FileName = getfilename
mp.Visible = True

CmdSnd.Caption = "Stop"
Else
getfilename = " "
Call PlaySound(getfilename, 0&, SND_Filename Or SND_LOOP)
mp.FileName = getfilename
mp.Visible = False

CmdSnd.Caption = "Click Here To Watch" 'If pressed again
End If it enlarges itself'

End Sub

 

[vbkris]

dont reset it, cut it.

reduce the size of the picture box, it will automatically crop the media component..

Known is handfull, Unknown is worldfull