Visual Basic

Dim m As New MailMessage(FromtextBox.Text, ToTextBox.Text, SubjectTextBox.Text, BodyTextBox.Text)<br />
   Dim a As New Attachment(My.Settings.CurrentList)<br />
   Dim c As New SmtpClient<br />
   m.Attachments.Add(a)<br />
   c.Host = ""<br />
   c.Send(m)

Private Sub tmrGame_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrGame.Tick<br />
        Threading.Thread.SpinWait(1000)<br />
        mysec = mysec - 1<br />
        lblcdClock.Text = ":" & mysec<br />
        If mysec > 15 Then<br />
            mysec = 0<br />
        End If<br />
        If mysec = -1 Then<br />
            tmrGame.Stop()<br />
            lblcdClock.Text = ":" & 0<br />
            Threading.Thread.Sleep(2000)<br />
            lblcdClock.Text = ":" & 15<br />
               End If<br />
    End Sub