Dim Expression As String =
"([\w\-]+\.)*[\w\-]+@([\w\-]+\.)+([\w\-]{2,5})"
 EmailRegex = New Regex(Expression, RegexOptions.IgnoreCase _ 
 Or RegexOptions.Compiled)

 Dim HrefPattern As String = 
"href\s*=\s*(?:""(?<match>[^""]*)""|(?<match>\S+))"
 HrefRegex = New Regex(HrefPattern, RegexOptions.IgnoreCase _
 Or RegexOptions.Compiled)

so can I combine both regular expressions in one?

Thanks

Public Class Person
....
Protected m_timelists as ArrayList
....
Property timelists() as ArrayList
    Get
        timelists = m_timelists
    End Get
    Set (ByVal Value as ArrayList)
        m_timelists = Value
    End Set
End Property

'Time object is previously created and valid
PersonList.addtimeobject(myUserid, time) 

Public Class PersonList
    'To hold all the person objects
    Dim personlist as new ArrayList 
....
Public Function addtimeobject(ByVal userid _ 
          as string, ByVal time as object)
     Dim i as integer = 0
     For i = 0 to personlist.count-1
           if personlist(i).userid = userid then
              personlist(i).timelists.add(time)
           end if
      Next
End Function

Declare
    Protected m_timelists as NEW ArrayList

Dim SelectedItem As ListViewItem _ 
  = lvwFiles.GetItemAt(e.X, e.Y)
If Not SelectedItem Is Nothing Then
    MyLabel.Text = SelectedItem.Text
End If

Private Sub butRetrieve_Click(ByVal sender As _
 System.Object, ByVal e As System.EventArgs) _ 
 Handles butRetrieve.Click

 If txtCPMain.Text <> "" Then
  get_specific_CP()
 Else
  get_all_CPs()
 End If
End Sub

**

Sub get_specific_CP()
 lBoxCP.DataSource = Nothing
 lBoxCP.Items.Clear()
 lBoxCP.Refresh()
 DsCP1.Clear()
 SqlDA_CP.Fill(DsCP1)
 Dim dtbCP As DataTable
 dtbCP = DsCP1.Tables(0)
 Dim dtvCP As New DataView(dtbCP)
 dtvCP.RowFilter = "STR_CUTTING_PERMIT = _
      '" & txtCPMain.Text & "'"
 lBoxCP.DataSource = dtvCP
 lBoxCP.DisplayMember = "STR_CUTTING_PERMIT"
 fill_all_textfields()
End Sub

**

Private Sub get_all_CPs()
 lBoxCP.DataSource = Nothing
 lBoxCP.Items.Clear()
 lBoxCP.Refresh()
 DsCP1.Clear()
 SqlDA_CP.Fill(DsCP1)
 lBoxCP.DataSource = DsCP1.Tables(0)
 lBoxCP.DisplayMember = "STR_CUTTING_PERMIT"
End Sub

  Private tcpLstn As New TcpListener(51112)

  Public Sub subMainLoop()
    Dim tcpClnt As TcpClient
    Dim ns As NetworkStream
    Dim buffr(4) As Byte
    Dim buffr2(6) As Byte
    Dim iRead As Integer

    bScan = True
    tcpLstn.Start()

    While bScan
            '--- Code execution pauses here 
            '--- until TCP connection request
            '--- is received.
            tcpClnt = tcpLstn.AcceptTcpClient()

            ns = tcpClnt.GetStream()

            '--- Wait until 4 characters are successfully read
            iRead = 0
            While iRead < 4
                iRead = iRead + ns.Read(buffr, iRead, 4 - iRead)
            End While

            '--- Create array of characters to send back
            buffr2(0) = 13
            buffr2(1) = 10
            buffr2(2) = buffr(3)
            buffr2(3) = buffr(2)
            buffr2(4) = buffr(1)
            buffr2(5) = buffr(0)

            Try
                '--- Send requested data over TCP port
                ns.Write(buffr2, 0, 6)
                ns.Close()
                tcpClnt.Close()
            Catch e As Exception
                Console.WriteLine(e.ToString())
            End Try

            '--- Process events
            Application.DoEvents()
        End While

        tcpLstn.Stop()

    End Sub

....
ns.Write(buffr2, 0, 6)
ns.Close()
tcpClnt.Close()
....

....
ns.Write(buffr2, 0, 6)
For i = 1 to 1000000
    i = i
Next
ns.Close()
tcpClnt.Close()
....

Dim str() As String
Dim dr As Directory

str = dr.GetDirectories("C:\Documents and Settings\Nick\Local 
Settings\History")

Debug.WriteLine(str(0))

~~~~~~~~~~
Code
~~~~~~~~~~
Imports System
Imports System.IO

Dim di As DirectoryInfo = New DirectoryInfo("c:\")
Try
  Dim dirs As FileSystemInfo() = di.GetDirectories("*p*")
    Console.WriteLine("Number of directories with a p: _
                                       {0}", dirs.Length)
  Dim diNext As DirectoryInfo
  For Each diNext In dirs
    Console.WriteLine("The number of files and _
      directories " + "in {0} with an e is {1}", diNext, _
      diNext.GetFileSystemInfos("*e*").Length)
  Next
  Catch e As Exception
    Console.WriteLine("The process failed: {0}", _
                                     e.ToString())
End Try
~~~~~~~~~~
Code
~~~~~~~~~~

fileNameArray = System.IO.Directory.GetFiles("C:\", "*.")

\\ Private Sub Button1_Click(ByVal sender As _
    System.Object, ByVal e As System.EventArgs) _
            Handles Button1.Click
        Dim mypath As String
        mypath = Application.StartupPath
        Dim Dirs As IO.DirectoryInfo = New _ 
           IO.DirectoryInfo(mypath & "\Stamps\")
        Dim FileCount As IO.FileSystemInfo() = Dirs.GetFiles
        Dim FileNaam As IO.FileInfo
        ComboBox1.Items.Clear()
        ComboBox1.Items.AddRange(FileCount)
        ComboBox1.SelectedIndex = 0
    End Sub
///

Dim oExcel As Excel.Application
oExcel = new Excel.Application
....
....
...
If Not oExcel Is Nothing Then oExcel.Quit()
If Not oExcel Is Nothing Then oExcel = Nothing

Public Sub MenuClick(ByVal sender As Object, _ 
   ByVal e As EventArgs)
Dim sSelected as string = CType(sender, MenuItem).Text()
........Blah Blah Blah

End Sub

 Dim myItem As String = _
 DirectCast(DirectCast(DirectCast(sender, MenuItem).Parent, _ 
   Menu), MenuItem).Text

    Dim groups As New ArrayList
    Dim assigned As New ArrayList
    Dim result As New ArrayList

    groups.Add("one")
    groups.Add("two")
    groups.Add("three")

    assigned.Add("two")

    For Each group As Object In groups
        If not assigned.Contains(group) Then
            result.Add group
        End If
    Next

    Public Class GroupCollection
        Inherits CollectionBase

        ...

        Public Function GetDifference(...) ...
            For Each group As Object In InnerList

Public Function EnumChildWindowsSub(ByVal _ 
  argl_hChildWnd As IntPtr, ByVal argl_Param _ 
  As Integer) As Boolean
    Dim lsb_ClassName As New StringBuilder(256)
    Call GetClassNameA(argl_hChildWnd, lsb_ClassName, _
       lsb_ClassName.Capacity)
    If (lsb_ClassName.ToString = "ComboBox") Then
       SendMessageA(argl_hChildWnd.ToInt32, _ 
          CB_INSERTSTRING, 0, "www.thatsite.com")
      'This just for see with Spy that the combo handle is correct
      Me.Text = "I find combo with handle " & _
           Hex(argl_hChildWnd.ToInt32).ToString
      Return False
    Else
      Return True
    End If
  End Function

Private Declare Auto Function SendMessageA _ 
  Lib "user32" (ByVal hwnd As Long,
ByVal wMsg As Long, ByVal wParam As Long _
  , <MarshalAs(UnmanagedType.LPStr)>
ByVal lParam As String) As Long

'Declaration
Private Declare Auto Function SendMessageA _ 
   Lib "user32" (ByVal hwnd As
IntPtr, ByVal wMsg As IntPtr, ByVal wParam As IntPtr,
<MarshalAs(UnmanagedType.AnsiBStr)> ByVal _ 
  lParam As String) As IntPtr
'Code (argl_hChildWnd is the handle of the Edit _ 
  window into the combo)
SendMessageA(argl_hChildWnd, New _ 
  IntPtr(WM_SETTEXT), IntPtr.Zero, "www.thatsite.com")