- Un timer con intervalo de 50
- Un textbox
Dentro del timer pones:
Código (vb) [Seleccionar]
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)
Lo que hace es selecionar un numero cualquiera de 0 a 5....cada numero tiene su propia funcion...despues lo ejecuta... vendria bien declalar "sel" como integer o long dentro de general o load...
Saludos