For i = sendbox.Items.Count - 1 To 0 Step -1
                    Dim cur_senboxentry As String = sendbox.Items.Item( _
                      i).ToString
                    If (cur_senboxentry.StartsWith("sendto")) Then
                        Dim sendCommand As String = Trim(Mid(cur_senboxentry, _
                          7, 600))
                        GO_SEND_COMMAND(sendCommmand)
                        sendbox.Items.RemoveAt(i)
                    End If
                Next