Private Sub Command10_Click()
Dim idhelp
'idhelp = Shell("D:\Program Files\Adobe\Acrobat 4.0\Acrobat\Acrobat.exe E:\Free\hirakawa\VB_Program\nsm\help.pdf", 1)
idhelp = Shell("D:\WINNT\system32\telnet.exe", 1)
'D:\WINNT\system32\telnet.exe

End Sub
