option explicit dim playfilename as string dim playposition as double private sub command1_click() command1.enabled = false mediaplayer1.pause playpostion = mediaplayer.currentposition end sub private sub command2_click() command1.enabled = true command3.enabled = true mediaplayer1.url = playfilename mediaplayer1.controls.currentposition = playposition mediaplayer1.play end sub private sub command3_click() playposition = 0 command3.enabled = false command1.enabled = false command2.enabled = true mediaplayer1.stop end sub private sub command4_click() commondialog1.showopen playfilename = commondialog1.filename playposition = 0 end sub private sub command5_click() unload me end end sub 20210311