Private Sub Command1_Click()
Shell "C:\Windows\system32\sol.exe"
End Sub
Private Sub Command2_Click()
Shell "C:\Windows\system32\winmine.exe"
End Sub
Private Sub Command3_Click()
Shell "C:\Windows\system32\spider.exe"
End Sub
Private Sub Command4_Click()
Shell "C:\Windows\system32\freecell.exe"
End Sub
Private Sub Command5_Click()
Shell "C:\Windows\system32\mshearts.exe"
End Sub
Private Sub Command6_Click()
Shell "C:\Programmi\Windows NT\Pinball\PINBALL.EXE"
End Sub
Private Sub Command7_Click()
Unload Me
Inizio.Show 1
End Sub