新手求解 VB程序怎么停止定时发送短信

新手求解 VB程序如何停止定时发送短信
Private Sub Timer6_Timer()
  If InStr(Tems, "Yes") <> 0 Then
  Timer6.Enabled = False
  Else
  Me.Timer6.Interval = 60000
  Call Armed
  End If
End Sub 
这样好像不行啊，我发送Yes的短信指令，这里截取不到

[解决办法]
Tems是否是全局变量。

如果是多窗体请在模块里有public定义全局变量。

[解决办法]
模块加一个,然后public Tems as string

某个窗体中加一个按钮

VB code

Private Sub Command1_Click()Tems = "Yes"End Sub