'******************** Stored Procedure UPDATE NONQUERY ********************************
        Dim objConn As New SqlConnection(db_connstring)
        Dim objCommand As New SqlCommand("spUpdateDemo1", objConn)
        objCommand.CommandType = CommandType.StoredProcedure
        objcommand.Parameters.Add("@EmailAddress", Session("EmailAddress"))
        objcommand.Parameters.Add("@RecordId", Session("RecordId"))
        objcommand.Parameters.Add("@DemoInfo", strDemoInfo)
        objcommand.Parameters.Add("@Client", Client)
        objConn.Open()
        objcommand.ExecuteNonQuery()
        objConn.Close()
   '***************************************************************************************

    '***********************NONQUERY OR SCALAR INSERT APPEND*************************************
    Dim objConn As New SqlConnection
    Dim objCommand As New SqlCommand

    Dim v1 As String = "19"
    Dim v2 As String = "16"
    Dim v3 As String = "'hello'"
    Dim Values As String = v1 & "," & v2 & "," & v3

    Dim FieldNames As String = "Id_Score_File,Id_Exam_Bank,Comment"

    objConn = New System.Data.sqlclient.SqlConnection("Server=STEVESCHIMSKY;Database=Exam;Trusted_Connection=True;")
    objCommand = New SqlCommand("Insert into score_comments (" & FieldNames & ") values(" & Values & ") select scope_identity() as iID_Score_Comment", objConn)
    objConn.Open()

    Try

      'Select Either (A) or (B) *******************
      '(A)...DO NOT RETURN IDENTITY FIELD VALUE...
      'objCommand.ExecuteNonQuery()
      '(B)...RETURN IDENTITY FIELD VALUE...
      'Dim o As Object
      'o = objCommand.ExecuteScalar
      '********************************************

    Catch ex As SqlException
      MessageBox.Show(ex.Message)
    End Try
    objConn.Close()
   '*********************************************************************************************



    How To Open A Remote SQL Server
   '******************* OPEN A REMOTE SQL DATABASE****************************************************
   objConn = New System.Data.SqlClient.SqlConnection("Password=nUPVchgPSKnw;UserID=V014U07NUI;InitialCatalog=V014U07NUI;DataSource=maxsql003.Maximumasp.com")
   Dim objCommand As New SqlCommand
   Dim objDa As New SqlDataAdapter
   Dim objDs As New DataSet
   ' **********************************************



'*********************SQL SERVER NONQUERY UPDATE *****************************
        Dim objConn As New System.Data.SqlClient.SqlConnection(Session("ConnectionString"))
        Dim objcommand As New SqlCommand
        Dim QStr As String

        QStr = "UPDATE ScoreFile SET "
        QStr = QStr & "ScoreFile.Responses = '" & vResp & "'" & ","
        QStr = QStr & "ScoreFile.Items = '" & Istr & "'" & ","
        QStr = QStr & "ScoreFile.Raw = '" & Trim(Str(vRaw)) & "'" & ","
        QStr = QStr & "ScoreFile.Theta = '" & Trim(vTheta) & "'" & ","
        QStr = QStr & "ScoreFile.TotalTime = '" & vTotalTime & "'"
        QStr = QStr & " WHERE (((ScoreFile.cLogin)='" & Session("id") & "'));"

        objcommand = New SqlCommand(QStr, objConn)
        objConn.Open()
        objcommand.ExecuteNonQuery()
        objConn.Close()
'***************************************************************************************

'***********************SQL Database NONQUERY INSERT APPEND*************************************
 Dim objConn As New SqlConnection("data source=SCHIMSKYPC;Integrated Security=SSPI;Database=SecureExam")
 Dim objCommand As New SqlCommand

 Dim v1 As String = "'" & a(1) & "'"
 Dim v2 As String = "'" & a(2) & "'"
 Dim v3 As String = "'" & a(3) & "'"
 Dim v4 As String = "'" & a(4) & "'"
 Dim v5 As String = "'" & a(5) & "'"
 Dim v6 As String = "'CompUSA'"
 Dim v7 As String = "'United States'"

 'WebForm Fields....
 Dim strValues As String = v1 & "," & v2 & "," & v3 & "," & v4 & "," & v5 & "," & v6 & "," & v7
 'Database Fields...
 Dim strFields As String = "SiteAddress1,SiteCity,SiteState,SiteZip,SiteCode,SiteName,SiteCountry"
 objCommand = New SqlCommand("INSERT INTO SiteInfo (" & strFields & ") VALUES (" & strValues & ")", objConn)
 objConn.Open()
 Try
     objCommand.ExecuteNonQuery()
 Catch ex As SqlException
     MessageBox.Show(ex.Message)
 End Try
 objConn.Close()
 '*********************************************************************************************


'******** Call a stored Procedure Query*************************************************
        
        Dim DsLogin As New DataSet()
        Dim objConn As New SqlConnection
        
        'Get the connection string....
        Session("ConnectionString") = ConfigurationSettings.AppSettings("ConnectionString")
        
        objConn = New System.Data.sqlclient.SqlConnection(Session("ConnectionString"))
        Dim objCommand As New SqlCommand("CandidateLogin", objConn)
        Dim objDA As New SqlDataAdapter
        objCommand.CommandType = CommandType.StoredProcedure
        objCommand.Parameters.Add("@AccessCode", txtAccessCode.Text.Trim)
        objDA.SelectCommand = objCommand
        objDA.Fill(DsLogin, "Login")
        objConn.Close()
        '*************************************************************************************

'******************* OPEN A DATABASE ****************************************************
        'Could Be In Global Area ****************
        Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & GetAppPath() & "DB1.mdb")
        Dim objCommand As New OleDbCommand()
        Dim objDa As New OleDbDataAdapter()
        Dim objDs As New DataSet()
        Dim objCommandBuilder As New OleDbCommandBuilder()
        ' **********************************************

        objCommand.CommandText = "Select * From Table1"
        objCommand.Connection = objConn
        objDa.SelectCommand = objCommand
        objDa.Fill(objDs, "Table1")
        objDa.FillSchema(objDs, SchemaType.Source, "Table1")
        objCommandBuilder = New OleDbCommandBuilder(objDa)
'***********************************************************************************************

  '  ************ SQL Open The DataReader************************************************************
        '1. Create a connection
        Dim objConn As New SqlConnection("data source=STEVESCHIMSKY;Integrated Security=SSPI;Database=SecureExam")
        '2. Create the command object, passing in the SQL string
        Dim strSQL As String = "Select * From SessionState Where SessionId ='1'"
        Dim objCommand As New SqlCommand(strSQL, objConn)
        objConn.Open()
        Dim objDR As SqlDataReader = objCommand.ExecuteReader
        objDR.Read()
 '**********************************************************************************************

'******************* SQLClient Open A DATABASE **********************************
        Dim objConn As New SqlConnection("user id=sa;password=daisy;data source=STEVESCHIMSKY;persist security info=False;initial catalog=SampleSQlSQL")
        dim objConn As New SqlConnection("data source=STEVESCHIMSKY;Integrated Security=SSPI;Database=SecureExam")
        Dim objCommand As New SqlCommand
        Dim objDa As New SqlDataAdapter
        Dim objDs As New DataSet
        Dim objCommandBuilder As New SqlCommandBuilder
        
        objCommand.CommandText = "Select * From People"
        objCommand.Connection = objConn
        objDa.SelectCommand = objCommand
        objDa.Fill(objDs, "Table1")
'***************************************************************************

 '************  DAB Return DataSet Application Block ***********************************************************
    'Imports Microsoft.ApplicationBlocks
    Dim objConn As New SqlConnection("data source=SCHIMSKYPC;Integrated Security=SSPI;Database=NorthWind")
    Dim oParams(0) As SqlClient.SqlParameter
    Dim objDs As New DataSet
    oParams(0) = New SqlClient.SqlParameter("@LastName", "D")
    objDs = Data.SqlHelper.ExecuteDataset(objConn, CommandType.StoredProcedure, "spGetEmployee", oParams)
    objDs.Tables(0).TableName = "Employees"
    Response.Write(objDs.Tables("Employees").Rows(0).Item("LastName"))
 '**************************************************************************************************************    

 '************  DAB ExecuteNonQuery  Application Block **********************************************************
    'Imports Microsoft.ApplicationBlocks
    Dim objConn As New SqlConnection("data source=SCHIMSKYPC;Integrated Security=SSPI;Database=NorthWind")
    Dim str As String = "Update Employees Set LastName = 'Brooks' where EmployeeId = 4"
    Data.SqlHelper.ExecuteNonQuery(objConn, CommandType.Text, str)
    Response.Write("Done Deal")
 '**************************************************************************************************************    

***************** DataList Custom Binding Expression *****************
   DataBinder.Eval(Container.DataItem, "vName")
****************************************************************************
'*************** GET APP PATH FUNCTION *******************************
Public Function GetAppPath() As String
        'Returns the current application path, with a trailing slash
        Dim strPath As String
        strPath = StrReverse(Application.ExecutablePath)
        strPath = Mid(strPath, InStr(1, strPath, "\"))
        strPath = StrReverse(strPath)
        Return strPath
    End Function
'*****************************************************************************

'************* MDB Password VB6 and .Net*****************************************************************************************************
DAO (Place the line below in the connection field of the control's property box...)
Access 2000;pwd=daisy

ADO.NET
objConn = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & vDatabase & ";Jet OLEDB:Database Password=daisy")
*********************************************************************************************************************************************



'*************************  Open Dbase Files DBF *************************************************************************
      Imports System.Data.Odbc
       
      'Now get the key...
      Dim objConn3 As New OdbcConnection("Driver={Microsoft dBase Driver (*.dbf)};DBQ=C:\")
      Dim objCommand3 As New OdbcCommand
      Dim objDa3 As New OdbcDataAdapter
      Dim objDs3 As New DataSet

      objCommand3.CommandText = "Select * From KEYS.DBF"
      objCommand3.Connection = objConn3
      objDa3.SelectCommand = objCommand3
      objDa3.Fill(objDs3, "Keys")
      objConn3.Close()
'*****************************************************************************************************************


'*********** MS Access MDB Password Open Database Connection *******************************************************
DAO
Access 2000;pwd=daisy

ADO.NET
objConn = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & vDatabase & ";Jet OLEDB:Database Password=daisy")
********************************************************************************************************************



'***************SHELL AND WAIT - VB.NET CODE**************************
        Dim sysPath As String
        sysPath = System.Environment.GetFolderPath(Environment.SpecialFolder.System)
        Shell(sysPath & "\notepad.exe", AppWinStyle.NormalFocus, True)
        MessageBox.Show("You just closed Notepad", "Notepad Closed")
'********************************************************************************
'*********** GET COMMANDLINE ARGUEMENTS *****************************
 'Get CommandLine Arguments
        Dim MyStartUpArguments() As String, intCount As Integer
        MyStartUpArguments = System.Environment.GetCommandLineArgs
        For intCount = 0 To UBound(MyStartUpArguments)
            MessageBox.Show(MyStartUpArguments(intCount).ToString)
        Next
'*********************************************************************************
'******************* ISDATE FUNCTION *********************************************
    Public Shared Function IsDate(ByVal strDate As String) As Boolean
        'Steve Big ISDate Function !!!!!!!!!!!!
        Dim dtDate As DateTime
        Dim bValid As Boolean = True
        Try
            dtDate = DateTime.Parse(strDate)
        Catch eFormatException As FormatException
            ' the Parse method failed => the string strDate cannot be converted to a date. 
            bValid = False
        End Try
        Return bValid
    End Function
'*********************************************************************************************


'************ Open The DataReader ************************************************************
        '1. Create a connection
        Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & vDatabase)
        '2. Create the command object, passing in the SQL string
        Dim strSQL As String = "SELECT DISTINCTROW candidate.*,Demographic.* FROM CANDIDATE INNER JOIN demographic ON CANDIDATE.SSNTYPELEV = demographic.ssntypelev WHERE CANDIDATE.ssntypelev = '" & DataGrid1.Item(r, 5) & "';"
        Dim objCommand As New OleDbCommand(strSQL, objConn)
        'Set the datagrid's datasource to the datareader and databind
        objConn.Open()
        Dim objDR As OleDbDataReader = objCommand.ExecuteReader
        objDR.Read()
'**********************************************************************************************

   '************ NONQUERY DELETE CODE ********************************
   Dim objConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("SMTSurvey.MDB") & ";")
   Dim objcommand As New OleDbCommand()
   objcommand = New OleDbCommand("DELETE Demographic.* FROM Demographic Where (((Demographic.RecordId)='" & RecId & "'));", objConn)
   objConn.Open()
   objcommand.ExecuteNonQuery()
   objConn.Close()
   '************************************************************************* 

'*********************NONQUERY UPDATE *****************************
        Dim objConnection As New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("CP.mdb"))
        Dim objcommand As New OleDbCommand()
        Dim QStr As String

        QStr = "UPDATE Candidate SET "
        QStr = QStr & "Candidate.FName = '" & txtFirstName.Text & "'" & ","
        QStr = QStr & "Candidate.Address1 = '" & txtAddress1.Text & "'" & ","
        QStr = QStr & "Candidate.Address2 = '" & txtAddress2.Text & "'" & ","
        QStr = QStr & "Candidate.City = '" & txtCity.Text & "'" & ","
        QStr = QStr & "Candidate.State = '" & txtState.Text & "'" & ","
        QStr = QStr & "Candidate.Zip = '" & txtZip.Text & "'" & ","
        QStr = QStr & "Candidate.Country = '" & txtCountry.Text & "'" & ","
        QStr = QStr & "Candidate.LName = '" & txtLastName.Text & "'"
        QStr = QStr & " WHERE (((Candidate.ssntypelev)='" & Trim(txtId.Text) & Trim(txtExamType.Text) & Trim(txtExamLev.Text) & "'));"

        objcommand = New OleDbCommand(QStr, objConnection)
        objConnection.Open()
        objcommand.ExecuteNonQuery()
        objConnection.Close()
        '***************************************************************************************

'***********************NONQUERY INSERT APPEND*************************************
        Dim objConn As New OleDbConnection()
        Dim objCommand As New OleDbCommand()
        'objConn = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\testadmn\can\isc2\cp.mdb")
        objConn = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("CP.mdb"))

        Dim v1 As String = "'" & txtSsn.Text & "'"
        Dim v2 As String = "'" & txtCourse.Text & "'"
        Dim v3 As String = "'" & txtSponsor.Text & "'"
        Dim v4 As String = "'" & txtType.Text & "'"
        Dim v5 As String = "#" & txtDate1.Text & "#"
        Dim v6 As String = "#" & txtDate2.Text & "#"
        Dim v7 As String = "'" & txtPoints.Text & "'"
        Dim v8 As String = "'" & txtDateReceived.Text & "'"
        Dim v9 As String = "'" & txtPointsApplyToDate.Text & "'"

        'WebForm Fields....
        Dim strValues As String = v1 & "," & v2 & "," & v3 & "," & v4 & "," & v5 & "," & v6 & "," & v7 & "," & v8 & "," & v9
        'Database Fields...
        Dim strFields As String = "ssn,name_of_course,course_sponsore,type,start_date,end_date,points_claimed_by_candidate,date_received,points_apply_to_date"
        objCommand = New OleDbCommand("INSERT INTO Continue_Ed (" & strFields & ") VALUES (" & strValues & ")", objConn)
        objConn.Open()
        objCommand.ExecuteNonQuery()
        objConn.Close()
        '*********************************************************************************************

'************* DATALIST HTML DATABINDER.EVAL ******************************************
<%# DataBinder.Eval(Container.DataItem,"vName") %>
'****************************************************************************************************

'******************** DATAGRID HYPERLINK TEMPLATE COLUMN ******************************
	<asp:TemplateColumn HeaderText="Mytemplatecolumn">
	<ItemTemplate>
		<a href='Transactions.aspx?InvoiceNumber=<%#DataBinder.Eval(Container.DataItem, "InvoiceNumber")%>&InvoiceAmount=<%#DataBinder.Eval(Container.DataItem, "InvoiceAmount")%>'>
		Transactions </a>
	</ItemTemplate>
'*****************************************************************************************************

'****************** DATAGRID PRE-SELECT AN ITEM IN A DROPDOWN LIST ********************
'PUT THIS CODE INSIDE THE DataList1_ItemDataBound EVENT!!!
'Preselecting an Item in the Drop-Down List
'You often want to set the selected item in the drop-down list to match a specific 
'value, usually the value displayed in the cell in display mode. You can do this by 
'setting the SelectedIndex property of the drop-down list to the index of the value to display.
'The following example shows a reliable way to do this in a handler for the DataGrid 
'item's ItemDataBound event. This is the correct event to use, 
'because it guarantees that the drop-down list has already been populated, 
'no matter what data source the drop-down list is using.
'The trick is in knowing what value to set the drop-down list to. 
'Typically, the value is already available to you either in the current item (being displayed) 
'or in the DataItem property of the current item, which returns a DataRowView object 
'containing the current record. Once you have the value, you can use the DropDownList 
'control's FindByText or FindByValue method to locate the correct item in the list; you 
'can then use the item's IndexOf property to return the index.
        If e.Item.ItemType = ListItemType.EditItem Then
Dim drv As DataRowView = CType(e.Item.DataItem, DataRowView)
Dim CurrentDesignation As String = CType(drv("Designation"), String)
Dim ddl As DropDownList
            ddl = CType(e.Item.FindControl("cmbDesignation"), DropDownList)
            ddl.SelectedIndex = ddl.Items.IndexOf(ddl.Items.FindByText(CurrentDesignation))
        End If

'*****************************************************************************************************

'****************** FILE I/O**************************************************************************
'Write To A File
Dim objFileStream As FileStream
Dim objStreamWriter As StreamWriter

objFileStream = New FileStream("C:\look.txt", FileMode.Create, FileAccess.Write)
objStreamWriter = New StreamWriter(objFileStream)

' Write line to output file
objStreamWriter.WriteLine("Hello")
objStreamWriter.WriteLine("World")
objStreamWriter.Close()
objFileStream.Close()

'Read A File
Dim strLine As String
Dim objFileStream As FileStream
Dim objStreamReader As StreamReader

objFileStream = New FileStream("c:\look.txt", FileMode.Open, FileAccess.Read)
objStreamReader = New StreamReader(objFileStream)

strLine = objStreamReader.ReadLine()

While Not IsNothing(strLine)
   MessageBox.Show(strLine)
   strLine = objStreamReader.ReadLine()
End While
objStreamReader.Close() 
objFileStream.Close()

'*********************************************************************************************


      ' ****************** Find A Row In A DataSet **************************************************
       '**********************************************
        Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=c:\inetpub\wwwroot\cp\cp.mdb")
        Dim objCommand As New OleDbCommand()
        Dim objDaTable1 As New OleDbDataAdapter()
        Dim objDs As New DataSet()
        ' **********************************************

        objCommand.CommandText = "Select * From Candidate"
        objCommand.Connection = objConn
        objDaTable1.SelectCommand = objCommand
        objDaTable1.Fill(objDs, "Candidate")
        objDaTable1.FillSchema(objDs, SchemaType.Source, "Candidate") 'Get the primary key from the table and load into dataset
        objConn.Close()

        Dim r As DataRow = objDs.Tables("Candidate").Rows.Find("888888ISC2CERT") 'Find the primary key
        If r Is Nothing Then
            MsgBox("Sorry, Not Found")
        Else
            MsgBox(r.Item("Lname"))
        End If
'****************************************************************************************************



'**************** MYRIGHT FUNCTION ******************************************************
    Function myRight(ByVal s As String, ByVal n As Integer) As String
        Try
            s = s.Substring(s.Length - n)
        Catch
            s = ""
        End Try
        Return s
    End Function
'***********************************************************************************************

'***************** FOLDER BROWSER CLASS **********************************************
'Dim oBrowse As FolderBrowser = New FolderBrowser(Me.Handle)
'oBrowse.Title = "Title For Browsing"
'oBrowse.NewUI = True
'oBrowse.ShowStatus = True
'Label1.Text = oBrowse.Browse(oBrowse.START_LOCATION.SL_RECENT)
'Label1.Text = oBrowse.Browse()

Imports System
Imports System.Runtime.InteropServices
Imports System.Diagnostics
Imports System.Text

Public Class FolderBrowser
    Private Const BFFM_INITIALIZED As Integer = 1
    Private Const BFFM_SELCHANGED As Integer = 2
    Private Const BFFM_VALIDATEFAILED As Integer = 3
    Private Const BFFM_ENABLEOK As Integer = &H465
    Private Const BFFM_SETSELECTIONA As Integer = &H466
    Private Const BFFM_SETSTATUSTEXT As Integer = &H464

    Private Const BIF_RETURNONLYFSDIRS As Short = &H1S
    Private Const BIF_DONTGOBELOWDOMAIN As Short = &H2S
    Private Const BIF_STATUSTEXT As Short = &H4S
    Private Const BIF_RETURNFSANCESTORS As Short = &H8S
    Private Const BIF_EDITBOX As Short = &H10S
    Private Const BIF_VALIDATE As Short = &H20S
    Private Const BIF_USENEWUI As Short = &H40S
    Private Const BIF_BROWSEFORCOMPUTER As Short = &H1000S
    Private Const BIF_BROWSEFORPRINTER As Short = &H2000S
    Private Const BIF_BROWSEINCLUDEFILES As Short = &H4000S

    Private Const MAX_PATH As Short = 260

    Public Enum START_LOCATION
        SL_FLAG_CREATE = &H8000
        SL_FLAG_DONT_VERIFY = &H4000
        SL_ADMINTOOLS = &H30
        SL_ALTSTARTUP = &H1D
        SL_APPDATA = &H1A
        SL_BITBUCKET = &HA
        SL_COMMON_ADMINTOOLS = &H2F
        SL_COMMON_ALTSTARTUP = &H1D
        SL_COMMON_APPDATA = &H23
        SL_COMMON_DESKTOPDIRECTORY = &H19
        SL_COMMON_DOCUMENTS = &H2E
        SL_COMMON_FAVORITES = &H1F
        SL_COMMON_PROGRAMS = &H17
        SL_COMMON_STARTMENU = &H16
        SL_COMMON_STARTUP = &H18
        SL_COMMON_TEMPLATES = &H2D
        SL_CONTROLS = &H3
        SL_COOKIES = &H21
        SL_DESKTOP = &H0
        SL_DESKTOPDIRECTORY = &H10
        SL_DRIVES = &H11
        SL_FAVORITES = &H6
        SL_FONTS = &H14
        SL_HISTORY = &H22
        SL_INTERNET = &H1
        SL_INTERNET_CACHE = &H20
        SL_LOCAL_APPDATA = &H1C
        SL_MYPICTURES = &H27
        SL_NETHOOD = &H13
        SL_NETWORK = &H12
        SL_PERSONAL = &H5
        SL_PRINTERS = &H4
        SL_PRINTHOOD = &H1B
        SL_PROFILE = &H28
        SL_PROGRAM_FILES = &H26
        SL_PROGRAM_FILES_COMMON = &H2B
        SL_PROGRAM_FILES_COMMONX86 = &H2C
        SL_PROGRAM_FILESX86 = &H2A
        SL_PROGRAMS = &H2
        SL_RECENT = &H8
        SL_SENDTO = &H9
        SL_STARTMENU = &HB
        SL_STARTUP = &H7
        SL_SYSTEM = &H25
        SL_SYSTEMX86 = &H29
        SL_TEMPLATES = &H15
        SL_WINDOWS = &H24
    End Enum

    ' callback delegate
    Private Delegate Function BrowseCB(ByVal hWnd As IntPtr, _
                                   ByVal uMsg As Integer, _
                                   ByVal lParam As Integer, _
                                   ByVal lpData As Integer) As Integer

    Private Structure BROWSEINFO
        Dim hOwner As IntPtr
        Dim pidlRoot As Integer
        Dim pszDisplayName As String
        Dim lpszTitle As String
        Dim ulFlags As Integer
        Dim lpfn As BrowseCB
        Dim lParam As IntPtr
        Dim iImage As Integer
    End Structure

    <DllImport("ole32.dll")> _
    Private Shared Sub CoTaskMemFree(ByVal addr As IntPtr)
    End Sub

    <DllImport("user32.dll")> _
              Private Overloads Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal uMsg As Integer, ByVal lParam As Integer, ByVal lpData As Integer) As Integer
    End Function

    <DllImport("user32.dll")> _
              Private Overloads Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal uMsg As Integer, ByVal lParam As Integer, ByVal lpData As String) As Integer
    End Function

    <DllImport("shell32.dll", CharSet:=CharSet.Ansi)> _
    Private Shared Function SHBrowseForFolder(ByRef lpBrowseInfo As BROWSEINFO) As IntPtr
    End Function

    <DllImport("shell32.dll", CharSet:=CharSet.Ansi)> _
    Private Shared Function SHGetPathFromIDList(ByVal pidl As IntPtr, ByVal pszPath As StringBuilder) As Integer
    End Function

    <DllImport("shell32.dll", CharSet:=CharSet.Ansi)> _
    Private Shared Function SHGetSpecialFolderLocation(ByVal hWnd As IntPtr, ByVal nFolder As Integer, ByRef pidl As Integer) As Integer
    End Function

    Private m_BI As BROWSEINFO
    Private m_Init As Boolean
    Private m_NewUI As Boolean = False
    Private m_ShowStatus As Boolean = False

    Public Sub New(ByVal handle As IntPtr)
        m_BI.hOwner = handle
        m_BI.lpfn = AddressOf BrowseCallbackProc
    End Sub

    Public Overloads Function Browse() As String
        m_BI.pidlRoot = 0
        Return DoBrowse("")
    End Function

    Public Overloads Function Browse(ByVal startPath As String) As String
        m_BI.pidlRoot = 0
        Return DoBrowse(startPath)
    End Function

    Public Overloads Function Browse(ByVal SL As START_LOCATION) As String
        SHGetSpecialFolderLocation(m_BI.hOwner, SL, m_BI.pidlRoot)
        Return DoBrowse("")
    End Function

    Private Function DoBrowse(ByVal startPath As String) As String
        Dim result As IntPtr
        Dim sel As String

        m_BI.ulFlags = BIF_RETURNONLYFSDIRS
        If m_NewUI Then m_BI.ulFlags += BIF_USENEWUI
        If m_ShowStatus Then m_BI.ulFlags += BIF_STATUSTEXT

        m_BI.lParam = Marshal.StringToHGlobalAnsi(startPath)
        m_Init = True
        result = SHBrowseForFolder(m_BI)

        sel = GetFSPath(result)

        Call CoTaskMemFree(result)

        Return sel
    End Function

    Public Property Title() As String
        Get
            Return m_BI.lpszTitle
        End Get
        Set(ByVal Value As String)
            m_BI.lpszTitle = Value
        End Set
    End Property

    Public Function BrowseCallbackProc(ByVal hWnd As IntPtr, _
                                   ByVal uMsg As Integer, _
                                   ByVal lParam As Integer, _
                                   ByVal lpData As Integer) As Integer
        If uMsg = BFFM_INITIALIZED Then
            SendMessage(hWnd, BFFM_SETSELECTIONA, 1, lpData)
            m_Init = False
        ElseIf uMsg = BFFM_SELCHANGED And Not m_Init Then
            SendMessage(hWnd, BFFM_SETSTATUSTEXT, 0, GetFSPath(New IntPtr(lParam)))
        End If
    End Function

    Private Function GetFSPath(ByVal pidl As IntPtr) As String
        Dim sb As New StringBuilder(MAX_PATH)

        If pidl.Equals(IntPtr.Zero) Then
            Return ""
        Else
            If SHGetPathFromIDList(pidl, sb) = 1 Then
                Return sb.ToString()
            End If
        End If
    End Function

    Public Property NewUI() As Boolean
        Get
            Return m_NewUI
        End Get
        Set(ByVal Value As Boolean)
            m_NewUI = Value
        End Set
    End Property

    Public Property ShowStatus() As Boolean
        Get
            Return m_ShowStatus
        End Get
        Set(ByVal Value As Boolean)
            m_ShowStatus = Value
        End Set
    End Property

End Class
'*********************** END FOLDER BROWSER CLASS ************************************

'************* VB.NET FORMS COLLECTION CLASS ****************************************
    '**************** My Forms Collection Class *******************************
    'This Class holds all the forms shown.
    'Usage:

    'Add the form to myFormCollection
    '        myForms.Add(FormInstance)

    'Remove the form from myFormCollection
    '        myForms.Remove(FormInstance)


    '    Dim frmAny As Form
    '       For Each frmAny In myForms
    '          MsgBox("Form " & frmAny.Tag & ", type " & frmAny.Name & ", is open")
    '          frmAny.Close()
    '       Next

    Public Class MyFormsCollection
        Inherits System.Collections.CollectionBase

        Public Sub Add(ByVal formToAdd As System.Windows.Forms.Form)
            MyBase.InnerList.Add(formToAdd)
        End Sub

        Public Sub Remove(ByVal formToRemove As System.Windows.Forms.Form)
            MyBase.InnerList.Remove(formToRemove)
        End Sub
    End Class
    '*********************************END FORMS COLLECTION CLASS*****************************************

 '****************** Process Start ******************************
   System.Diagnostics.Process.Start("c:\steve.xls") 
'*****************************************************************

************** DataGrid Paging Function ***********************************************************************
    Function PageGrid(ByVal vPageToDisplay, ByVal vRecordsPerPage, ByVal vTableName, ByVal vSortOnField, ByVal vUniqueIdField, ByVal vWhereClause, ByVal vFieldsToRetrieve, ByVal vDataBaseLocation, ByVal vCalcTotalPages) As DataTable
        '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        'VERY IMPORTANT INFORMATION -- This function requires that the UniqueIdField be selected as                     !
        '                              a 'FieldsToRetrieve'  For Example:                                             ! 
        '                              Dim FieldsToRetrieve As String = "Employees.EmployeeId,Employees.EmployeeName  !
        '                              The above example shows that the UniqueIdField, EmployeeId is being retrieved    !
        '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

        '**********************************************************************************************
        'NOTE: This function requires a DropDownList Control named 'cmbPage' to be on the ASP Form. '**
        '**********************************************************************************************

        'This function will return a Table with a "Page" of information from a dataset.  The Table returned can
        'then be used to populate a DataGrid.

        'Sample Usage:  ******************************************************************************************
        '
        '  Sub BindTheData(ByVal vPageToDisplay, ByVal vCalcTotalPages)
        '    Dim PageToDisplay As Integer = vPageToDisplay
        '    Dim RecordsPerPage As Integer = 5 'Amount of records on 1 page of data
        '    Dim TableName As String = "Employees INNER JOIN Salaries ON Employees.EmployeeId = Salaries.EmployeeId"  'The MS Access Table Name to perform the SQL on, ex: Table1
        '    Dim SortOnField As String = "Salaries.EmployeeSalary,Employees.EmployeeName"  'The MS Access Field Name to sort the data on, ex: Lname
        '    Dim UniqueIdField As String = "Employees.EmployeeId"  'The MS Access Field Name that uniquely identifies each record in the table
        '    Dim FieldsToRetrieve As String = "Employees.EmployeeId,Employees.EmployeeName,Salaries.EmployeeSalary"  'The returned table will have these fields in it.
        '    Dim strWC As String = "Where 1=1"  'The SQL 'Where' statement if necessary, ex: Where 1 = 1
        '    Dim DataBaseLocation As String = Server.MapPath("DB1.MDB")  'Location of Database
        '    Dim CalcTotalPages As Boolean = vCalcTotalPages 'Initially we need to know how many total pages are in the dataset.

        '    DataGrid1.DataSource = PageGrid(PageToDisplay, RecordsPerPage, TableName, SortOnField, UniqueIdField, strWC, FieldsToRetrieve, DataBaseLocation, CalcTotalPages)
        '    DataGrid1.DataBind()
        '  End Sub
        '
        '*********************************************************************************************************

        Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & vDataBaseLocation)
        Dim objCommand As New OleDbCommand()
        Dim objDaTable1 As New OleDbDataAdapter()
        Dim objDs As New DataSet()

        Dim RecordsToInclude As Integer
        Dim RecordsToExclude As Integer
        Dim TotalPages As Double

        RecordsToExclude = (vPageToDisplay - 1) * vRecordsPerPage
        RecordsToInclude = vRecordsPerPage * vPageToDisplay

        Dim StrSQL As String

        If vCalcTotalPages = True Then
            '**************************************************************************************
            '**** This query will find the total number of pages in the complete dataset    *******
            '**************************************************************************************
            StrSQL = "Select " & vFieldsToRetrieve & " From " & vTableName & " " & vWhereClause
            objCommand.CommandText = StrSQL
            objCommand.Connection = objConn
            objDaTable1.SelectCommand = objCommand
            objDaTable1.Fill(objDs, "TotalRows")
            TotalPages = Fix((objDs.Tables("TotalRows").Rows.Count / vRecordsPerPage) + 0.999999999)
            'lblInfo.Text = "Total Pages = " & TotalPages

            'Load The Page Number DropDownList with the total number of pages.....
            cmbPage.Items.Clear()
            Dim j As Integer
            For j = 1 To TotalPages
                cmbPage.Items.Add(Str(j))
            Next

            'set the combobox with the page we are currently displaying...
            cmbPage.SelectedIndex = vPageToDisplay - 1

            '***************************************************************************************
            '***************************************************************************************
            '***************************************************************************************
        End If

        'This SQL Statement, strSQL, is the Crux of the whole darn operation......
        If vPageToDisplay = 1 Then
            StrSQL = "Select Top " & vRecordsPerPage & " " & vFieldsToRetrieve & " From " & vTableName & " " & vWhereClause & " order by " & vSortOnField
        Else
            StrSQL = "Select " & vFieldsToRetrieve & " From (Select Top " & RecordsToInclude & " " & vFieldsToRetrieve & " from " & vTableName & " " & vWhereClause & " order by " & vSortOnField & ") where " & vUniqueIdField & " not in (select top " & RecordsToExclude & " " & vUniqueIdField & " from " & vTableName & " " & vWhereClause & " order by " & vSortOnField & ")"
        End If

        objCommand.CommandText = StrSQL
        objCommand.Connection = objConn
        objDaTable1.SelectCommand = objCommand
        objDaTable1.Fill(objDs, "ReturnTable")
        objConn.Close()

        'Return the table....
        Return (objDs.Tables("ReturnTable"))

    End Function
************** End DataGrid Paging Function ******************************************************************


'************************* Crystal Reports Sample Button Click ******************************************
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'Imports System.Data.OleDb
        'Imports CrystalDecisions.CrystalReports.Engine
        'Imports CrystalDecisions.Shared

        Cursor.Current = Cursors.WaitCursor

        '******************* OPEN A DATABASE ****************************************************
        Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=c:\inetpub\wwwroot\cp\cp.mdb")
        Dim objCommand As New OleDbCommand()
        Dim objDa As New OleDbDataAdapter()
        Dim objDs As New DataSet()

        objCommand.CommandText = "Select * From Candidate"
        objCommand.Connection = objConn
        objDa.SelectCommand = objCommand
        objDa.Fill(objDs, "Can")
        '***********************************************************************************************

        Dim cr As New Report1()
        cr.SetDataSource(objDs.Tables("Can"))
        cr.SetParameterValue("MyParameterField", "s*")

        ' Dim paramvals As ParameterValues
        ' Dim paramDVal As ParameterDiscreteValue
        ' Dim paramFlds As ParameterFieldDefinitions
        ' Dim paramFld As ParameterFieldDefinition
        ' paramFlds = cr.DataDefinition.ParameterFields

        'paramFld = paramFlds.Item(0)
        ' OR... paramFld = paramFlds.item("NameOfParameter")

        'paramDVal = New ParameterDiscreteValue()
        'paramDVal.Value = "hello World"
        'paramvals = paramFld.CurrentValues
        'paramvals.Add(paramDVal)
        'paramFld.ApplyCurrentValues(paramvals)
        '************************************************************

        CrystalReportViewer1.ReportSource = cr
        Cursor.Current = Cursors.Default

    End Sub'*************************End Crystal Reports Sample Button Click ******************************************

'******************* Start Excel And Open A WorkBook ******************************************************
    'Must First Add A Reference To The COM Object Microsoft Excel Object Library 
    Dim objExcel As New Excel.Application()
    objExcel.Workbooks.Open("Temp.txt") 
    objExcel.Visible = True 
'****************** End Start Excel And Open A WorkBook **************************************************

'***************************Confirmation JavaScript On A Button Attribute***************************************************
            cmdAddNew.Attributes.Add("onclick", "return getconfirm();")
            '		<script language="javascript">
            '
            'function getconfirm() 
            '{ 
            'if (confirm("Add A New Record?")==true) 
            '  return true; 
            '      Else
            'return false; 
            '}
            '		</script>
'**********************************************************************************************************************************

***************** ReplacePhrase Function *********************************************************************************************
    Function ReplacePhrase(ByVal txt, ByVal vRemove, ByVal vReplace)
        'Inputs: Text String, The phrase to remove from text String, The phrase To replace the removed phrase.
        ' t = "Steve Was Here But Steve is No longer Steve anymore" 
        ' MsgBox RemovePhrase(t, "Steve","Nelson") Will remove "Steve" From the Sentence and replace it with Nelson
        Dim p As Integer
        p = InStr(txt, vRemove)
        Do While p > 0
            txt = Mid(txt, 1, p - 1) + vReplace + Mid(txt, p + Len(vRemove))
            p = InStr(txt, vRemove)
        Loop
        Return txt
    End Function
***********************************************************************************************************************************************

'******************************************************
    Function CleanText(ByVal s As String)
        Return s.Replace("'", "''")
    End Function
'*******************************************************


'************************************************************************************************************************
        Imports System.Data.SqlClient
        '********************SQLServer INSERT NONQUERY *******************************************
        Dim objConn As New SqlConnection()
        Dim objCommand As New SqlCommand()
        objConn = New System.Data.SqlClient.SqlConnection("Server=STEVEPC;DataBase=MYSQLDBSQL;Integrated Security=SSPI")
        Dim v1 As String = "'" & "Rebee" & "'"
        Dim v2 As String = "'" & "Budner" & "'"
        'WebForm Fields....
        Dim strValues As String = v1 & "," & v2
        'Database Fields...
        Dim strFields As String = "Lname,Fname"
        objCommand = New SqlCommand("INSERT INTO Employees (" & strFields & ") VALUES (" & strValues & ")", objConn)
        objConn.Open()
        objCommand.ExecuteNonQuery()
        objConn.Close()
'*************************************************************************************************************************

'*********** DataList DataBindings Property, Custom Binding Expression *****************
        'Used in the DataList DataBindings Property, Custom Binding Expression
        DataBinder.Eval(Container.DataItem, "Lname")
'***************************************************************************************


'******************************* Start Of Create PanelBar Subroutine *********************************************************
    Sub CreatePanelBar()

        'Place a call to this subroutine in the Page_Load Event.

        'The routine below, in the Page.IsPostBack event, can be used to reselect the PanelBar Group after a 
        'postback

        '        If Page.IsPostBack Then

        '            'The txtHiddenField is filled in by the JavaScript on the Item.OnClick property of the PanelBar Item
        '            If txtHiddenField.Text.ToUpper.Trim = "INBOX ITEM CLICKED" Then
        '                PanelBar1.GroupSelected = "Inbox Group"
        '            End If
        '            'The txtHiddenField is filled in by the JavaScript on the Item.OnClick property of the PanelBar Item
        '            If txtHiddenField.Text.ToUpper.Trim = "OUTBOX ITEM CLICKED" Then
        '                PanelBar1.GroupSelected = "OutBox Group"
        '            End If

        '            txtDoSomeThing.Text = txtHiddenField.Text

        '        End If



        ' Set PanelBar Properties
        PanelBar1.BorderSize = 1
        PanelBar1.ButtonOuterHighlightColor = "#d4d0c8"
        PanelBar1.ClearPixelImage = "clearpixel.gif"
        PanelBar1.FollowYScroll = True
        PanelBar1.OuterShadowColor = "#404040"
        PanelBar1.ScrollDownActiveImage = "scrolldown_active.gif"
        PanelBar1.ScrollDownDisabledImage = "scrolldown_disable.gif"
        PanelBar1.ScrollDownEnabledImage = "scrolldown_enable.gif"
        PanelBar1.ScrollUpActiveImage = "scrollup_active.gif"
        PanelBar1.ScrollUpDisabledImage = "scrollup_disable.gif"
        PanelBar1.ScrollUpEnabledImage = "scrollup_enable.gif"
        PanelBar1.Width = Unit.Pixel(150)

        PanelBar1.BackgroundColor = "#5a5a5a"

        ' Set the Font properties
        PanelBar1.ButtonFont.Size = "10pt"
        PanelBar1.ButtonHoverFont.Size = "10pt"
        PanelBar1.ItemFont.Color = "#e0e0e0"
        PanelBar1.ItemFont.Size = "8pt"
        PanelBar1.ItemHoverFont.Color = "#e0e0e0"
        PanelBar1.ItemHoverFont.Size = "8pt"

        Dim Group As Coalesys.PanelBar.Group
        Dim Item As Coalesys.PanelBar.Item

        '*************************************************************************************************************
        ' Create the Group
        Group = PanelBar1.Groups.Add()
        Group.Caption = "InBox Group"


        ' Add Item
        Item = Group.Items.Add()
        Item.Caption = "InBox Item"
        Item.IconImage = "InBox.gif"
        'Item.URL = "default.aspx"
        'Place the value in a hidden field, then submit the form...
        Item.OnClick = "JavaScript:document.Form1.txtHiddenField.value='InBox Item Clicked';document.Form1.submit()"

        ' Add Item
        Item = Group.Items.Add()
        Item.Caption = "Here's Another Item"
        Item.IconImage = "notes.gif"
        'Item.URL = "default.aspx"
        'Place the value in a hidden field, then submit the form...
        Item.OnClick = "JavaScript:document.Form1.txtHiddenField.value='Heres Another Item';document.Form1.submit()"
        '*************************************************************************************************************


        '*************************************************************************************************************
        Group = PanelBar1.Groups.Add
        Group.Caption = "OutBox Group"

        ' Add Item
        Item = Group.Items.Add()
        Item.Caption = "OutBox Item"
        Item.IconImage = "InBox.gif"
        'Item.URL = "default.aspx"
        'Place the value in a hidden field, then submit the form...
        Item.OnClick = "JavaScript:document.Form1.txtHiddenField.value='OutBox Item Clicked';document.Form1.submit()"
        '*************************************************************************************************************

    End Sub
'******************************* End Of Create PanelBar Subroutine *********************************************************

'*********************** Start Of CreateMenu Subroutine ************************************************
    Sub CreateMenu()
        'This routine, CreateMenu, can be called from the Page_Load event.

        'The event below, WebMenu1_ServerItemClick, can be used to determine what menu option has been selected.

        'Private Sub WebMenu1_ServerItemClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebMenu1.ServerItemClick
        '    Dim ObjEA As Coalesys.WebMenu.ServerItemClickEventArgs = e
        ''   ***** Write caption value of the Item that raised the event.
        '    txtCaption.Text = ObjEA.Item.Caption
        ''   ***** Write URL value of the Item that raised the event.
        '    txtURL.Text = ObjEA.Item.URL
        ''   ***** Write the Id of the Item that raised the event.
        '    txtId.Text = ObjEA.Item.ID
        'End Sub

        WebMenu1.ServerEvents = Coalesys.WebMenu.ServerEventsConstants.Enabled

        Dim MenuBar As Coalesys.WebMenu.MenuBar
        Dim Group As Coalesys.WebMenu.Group
        Dim Item As Coalesys.WebMenu.Item
        Dim ItemFont As Coalesys.WebMenu.Font

        ' Set MenuBar and WebMenu1 Properties
        MenuBar = WebMenu1.MenuBar
        MenuBar.DisplayMode = Coalesys.WebMenu.DisplayModeConstants.Horizontal
        MenuBar.BorderSize = 0
        MenuBar.HoverColor = "#B6BDD2"
        MenuBar.HoverHighlightColor = "#0A246A"
        MenuBar.HoverShadowColor = "#0A246A"

        WebMenu1.BackgroundColor = ""
        WebMenu1.BackgroundImage = "background.gif"
        WebMenu1.BorderSize = 2
        WebMenu1.ClearPixelImage = "clearpixel.gif"
        WebMenu1.DisabledTextColor = "#a5a6a6"
        WebMenu1.InnerHighlightColor = "#F9F8F7"
        WebMenu1.InnerShadowColor = "#F9F8F7"
        WebMenu1.OuterHighlightColor = "#666666"
        WebMenu1.OuterShadowColor = "#666666"
        WebMenu1.PopupIcon = "popup.gif"
        WebMenu1.SelectedPopupIcon = "popup.gif"
        WebMenu1.SelectedColor = "#B6BDD2"
        WebMenu1.SelectedTextColor = "#000000"
        WebMenu1.ShadowEnabled = True
        WebMenu1.ScrollEnabled = True

        ' Set ItemFont Properties
        ItemFont = WebMenu1.ItemFont
        ItemFont.PaddingLeft = 4

        ' "File" Group
        Group = WebMenu1.Groups.Add()
        Group.Caption = "File"

        ' Add an Item To The "File Group"
        Item = Group.Items.Add()
        Item.Caption = "New"
        Item.IconImage = "New.gif"
        Item.IconHeight = 16
        Item.IconWidth = 16
        Item.IconPaddingRight = 12
        'Item.URL = "default.aspx"

        ' Add an Item To The "File Group"
        Item = Group.Items.Add()
        Item.Caption = "Open"
        Item.IconImage = "OpenSmall.gif"
        Item.IconHeight = 16
        Item.IconWidth = 16
        Item.IconPaddingRight = 12
        'Item.URL = "default.aspx"

        ' Add Divider
        Item = Group.Items.Add()
        Item.Style = Coalesys.WebMenu.StyleConstants.Divider
        Item.DividerColor = "#88a6b6"
        Item.DividerImage = "divider.gif"

        ' Add an Item To The "File Group"
        Item = Group.Items.Add()
        Item.Caption = "Add New Item..."
        Item.IconImage = "NewSmall.gif"
        Item.IconHeight = 16
        Item.IconWidth = 16
        Item.IconPaddingRight = 12
        'Item.URL = "default.aspx"

        ' Create the "Edit Group"
        Group = WebMenu1.Groups.Add()
        Group.Caption = "Edit"

        ' Add an Item To The "Edit Group"
        Item = Group.Items.Add()
        Item.Caption = "Cut"
        Item.IconImage = "CutSmall.gif"
        Item.IconHeight = 16
        Item.IconWidth = 16
        Item.IconPaddingRight = 12
        'Item.URL = "default.aspx"

        ' Add an Item To The "Edit Group"
        Item = Group.Items.Add()
        Item.Caption = "Copy"
        Item.IconImage = "CopySmall.gif"
        Item.IconHeight = 16
        Item.IconWidth = 16
        Item.IconPaddingRight = 12
        'Item.URL = "default.aspx"


        ' Create the "Help Group"
        Group = WebMenu1.Groups.Add()
        Group.Caption = "Help"

        ' Add an Item To The "Help Group"
        Item = Group.Items.Add()
        Item.Caption = "Contents..."
        Item.IconImage = "logo_16.gif"
        Item.IconHeight = 16
        Item.IconWidth = 16
        Item.IconPaddingRight = 12
        'Item.URL = "default.aspx"

        ' Add Divider
        Item = Group.Items.Add()
        Item.Style = Coalesys.WebMenu.StyleConstants.Divider
        Item.DividerColor = "#88a6b6"
        Item.DividerImage = "divider.gif"

        ' Add an Item To The "Help Group"
        Item = Group.Items.Add()
        Item.Caption = "About"
        Item.IconImage = "net_trouble.gif"
        Item.IconHeight = 16
        Item.IconWidth = 16
        Item.IconPaddingRight = 12
        Item.OnClick = "alert('WebMenu Technology is developed by Coalesys, Inc.');"

        '************* SUB GROUP DEFINITION ******************************************
        'Here We Are Adding A Sub-Group to the "Open Item".....
        ' "Open" Group
        Group = WebMenu1.Groups("File").Items("Open").AddGroup()
        '*****************************************************************************
        ' Add an Item To The "Open Sub-Group"
        Item = Group.Items.Add()
        Item.Caption = "Project..."
        Item.IconImage = "icon3.gif"
        Item.IconHeight = 16
        Item.IconWidth = 16
        Item.IconPaddingRight = 12
        'Item.URL = "default.aspx"

        ' Add an Item To The "Open Sub-Group"
        Item = Group.Items.Add()
        Item.Caption = "Project From Web..."
        Item.IconImage = "WorldFolderSmall.gif"
        Item.IconHeight = 16
        Item.IconWidth = 16
        Item.IconPaddingRight = 12
        'Item.URL = "default.aspx"

    End Sub
'*********************** End Of CreateMenu Subroutine ************************************************