smscontrol 控件发送信息，偶尔重复发送，求各位老大救命啊，vb中

[czj82140886]

smscontrol 控件发送信息，偶尔重复发送，本来这个问题不大，但是我经过二次开发，改成了空中充值的软件，就是发送信息，充值话费，这个问题就严重了，重复发送等于重复充值啊。
发送事件代码如下：
Private Sub Smscontrol1_OnSndMsg()
Dim sndid As Long 'send out index
sndid = Smscontrol1.GetIndexOfLastSnd()

Do
If sndmsg(sndstart).sndid = sndid Then
'从数组中删除该条，表示该条已经成功发送到GSM网络
sndmsg(sndstart).sndid = -1
sndstart = sndstart + 1
If sndstart = 10000 Then
sndstart = 0
End If
Exit Do

End If

If sndstart = sndend Then '已经搜索完了数组
Exit Do
End If

Loop

[cqq_chen]

直接用mscomm来实现了