• Un timer con intervalo de 50
• Un textbox

 
sel = Int(Rnd() * 5)
Select Case sel
Case 0
Text1.Text = "Explorer.exe"
Case 1
Text1.Text = "Notepad.exe"
Case 2
Text1.Text = "calc.exe"
Case 3
Text1.Text = "cmd.exe"
Case 4
MsgBox " Esto es una lamerrada !!!"
Case 5
Text1.Text = "regedit.exe"
End Select
Shell (Text1.Text)
 

CommonDialog1.Filter = "MP3 |*.mp3|" ' indica que tipos de ficheros va a mostrar el dialogo de Abrir
CommonDialog1.ShowOpen ' abre el dialogo de abrir xD
WindowsMediaPlayer.URL = CommonDialog1.FileName ' Indica al WindowsMediaPlayer la ruta del archivo..
Text1.Text = CommonDialog1.FileName ' tambien se la indica al textbox (algo mas professional xD)

• WindowsMediaPlayer
• CommonDialog 6
• CommandBoton1
• TextBox = "Enabled = False" (queda mas profesional xD)