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

Question

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 DoEnd IfIf sndstart = sndend Then '已经搜索完了数组
 Exit Do
End If
 
 Loop