Private Sub Command4_Click()
CommonD1.ShowOpen
skFlash1.Movie = cmdlg1.FileName
End Sub


红的那个地方怎么改啊??????

你的Form上有CommonDialog控件吗?.

cmdlg1.ShowOpen

最好是把原程序都发上来