Visual Basic

Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click

        Dim doc As New frm2
        doc.tabcntrol.Show()
        doc.tabcntrol.BringToFront()
	doc.show()
        doc.Visible = True

    End Sub

Imports System.Net.Mail
Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SendEmail("Skip")
        
    End Sub
    Sub SendEmail(ByVal name As String)
    
        Dim mail As New MailMessage()
           
        mail.From = New MailAddress("fromaddy@ee.com")
        mail.To.Add("toaddy@ee.com")
        mail.Subject = "Skip hire details"
        mail.Body = "This is a Test"

        Dim smtp As New SmtpClient()
        Try
            smtp.Send(mail)
        Finally
            mail.Dispose()
            smtp = Nothing
        End Try

    End Sub
End Class

If SkipList.Contains(Wd) Then
     Return Nothing
 Else
     For Each s As String In SkipList
         ct += 1
         If Wd.ToLower Like s Then
             Return Nothing
             Exit Function
         End If
     Next
 End If