Private Sub Command1_Click()
Call Shell("C:\Program Files\Windows Media Player\wmplayer.exe /prefetch:1.exe", 1)
End Sub