请高手帮我编一个VB程序

我想编一个小程序A用来运行另一个程序B,运行B程序10秒后,B就自动关了,然后再自动打开,就这样一直循环下去,直到我手动关了A.我用这个程序主要是用来增加B的登陆次数.B程序的路径是<D:\Program Files\China Mobile\Fetion.exe>
可以是源代码,也可以是打包好的程序.

新建一个窗体，在窗体上放一个命令按钮command1和一个记时器timer1
程序运行单击命令按钮开始运行，打开关闭时间你可以自己设置3000就是第三秒一次。
代码如下：

Public a As Long
Dim i As Integer

Private Sub Command1_Click()
Timer1.Interval = 3000 '运行间隔
End Sub

Private Sub Form_Load()
i = 1
End Sub

Private Sub Timer1_Timer()
If i = 1 Then
a = Shell("D:\Program Files\China Mobile\Fetion.exe")
Else
Shell "cmd /c ntsd -c q -p " & a, vbMinimizedNoFocus
End If
i = -i
End Sub

timer频率设为6000
使用SHELL

新建工程:

1个文本框,1个按钮,1个timer..

在文本框内输入程序的完整路径..点开始,就开始10秒自动运行, 点停止,就停止继续..

代码中是打开计算器..你可以把你的复制到上面, 别要你那前后的括号.

Private Sub Command1_Click()
If Command1.Caption = "开始运行" Then
Command1.Caption = "停止运行"
Else
Command1.Caption = "开始运行"
End If
Timer1.Enabled = Not Timer1.Enabled
End Sub