Sub Page_Load (...)
    If CBool(Session.Item("bValue")) Then
        //some code here
    Else
            Page.Controls.Clear()
            Response.Redirect("dcsError.htm", False)
        End If
End Sub

----------------------------
Option Strict On

Public Class test
    Inherits System.Windows.Forms.Form
    Public Structure countInfo
        Public word As String
        Public num As Integer
    End Structure

   Private Sub btnClick_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnClick.Click

        Dim y As New ArrayList
        Dim infolist As New ArrayList
        Dim strIn, str As String
        Dim strOut() As String
        Dim i, index As Integer
        Dim z1 As countInfo

        ' string to parse
        strIn = txtInfo.Text
        ' parse results
        strOut = strIn.Split(CChar(" "))
        
        ' save the string the first time
        ' next time, incement its number
        For i = 0 To strOut.GetLength(0) - 1
            str = CStr(strOut.GetValue(i))
            index = y.IndexOf(str)
            If Not index >= 0 Then
                y.Add(str)
                Dim newInfo As countInfo
                newInfo.word = CStr(str)
                newInfo.num = 1
                infolist.Add(newInfo)
            Else
       
                For Each z1 In infolist
                    If str = z1.word Then
                        ' z1.num gets incremented
                        ' but the actual structure in the
                        ' array does not
                        z1.num += 1
                        Exit For
                    End If
                Next

              End If
        Next

       ' this works fine
       For Each z In infolist
            txtOut.AppendText(z.word)
            txtOut.AppendText(" ")
            txtOut.AppendText(CStr(z.num))
            txtOut.AppendText(Constants.vbNewLine)
        Next
             
    End Sub
End Class

--------------

Private Sub Y()
        Dim infolist As New ArrayList
        Dim info As New countInfo
        Dim delimStr As String = " ,.:;#"
        Dim delimiter As Char() = delimStr.ToCharArray()
        Dim Cor As String = "Hello Cor, I ran into that same problem: that
this person did"
        Dim Burrakstr As String = Cor.Replace(vbCrLf, "#")
        Dim Burrak() As String = Burrakstr.Split(delimiter)
        Burrak.Sort(Burrak)
        Dim count As Integer
        For Each a As String In Burrak
            If a <> "" Then
                If a <> info.word Then
                    If info.word <> "" Then
                        infolist.Add(info)
                    End If
                    info = New countInfo
                    info.word = a
                    info.count = 0
                End If
                info.count += 1
            End If
        Next
    End Sub
    Public Class countInfo
        Public word As String
        Public count As Integer
    Public Sub New()
    End Sub
End Class

Private Sub Form1_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
        Dim start As Integer = 4
        Dim top As Integer = 25
        Dim i As Integer
        Dim nowdate As DateTime = DateTime.Now
        Dim mybutton(System.DateTime.DaysInMonth _
        (nowdate.Year, nowdate.Month)) As Button
        For i = 0 To System.DateTime.DaysInMonth _
        (nowdate.Year, nowdate.Month) - 1
            mybutton(i) = New Button
            mybutton(i).TextAlign = ContentAlignment.MiddleCenter
            mybutton(i).Width = 40
            mybutton(i).Height = 20
            mybutton(i).FlatStyle = FlatStyle.Flat
            mybutton(i).BackColor = Drawing.Color.AntiqueWhite
            mybutton(i).Location = New System.Drawing.Point(start, top)
            mybutton(i).Text = (i + 1).ToString
            mybutton(i).Cursor = Cursors.Hand
            Me.Controls.Add(mybutton(i))
            AddHandler mybutton(i).Click, AddressOf mybutton_Click
            AddHandler mybutton(i).MouseHover, AddressOf mybutton_Hoover
            AddHandler mybutton(i).MouseLeave, AddressOf mybutton_Leave
            start = start + 40
            If (i + 1) Mod 5 = 0 Then
                top = top + 20
                start = 4
            End If
        Next
    End Sub
    Private Sub mybutton_Click _
    (ByVal sender As Object, ByVal e As System.EventArgs)
        Dim thisbutton As Button = DirectCast(sender, Button)
        MessageBox.Show("The day is: " & thisbutton.Text)
    End Sub
    Private Sub mybutton_Hoover _
      (ByVal sender As Object, ByVal e As System.EventArgs)
        Dim thisbutton As Button = DirectCast(sender, Button)
        thisbutton.BackColor = Drawing.Color.AliceBlue
    End Sub
    Private Sub mybutton_Leave _
        (ByVal sender As Object, ByVal e As System.EventArgs)
        Dim thisbutton As Button = DirectCast(sender, Button)
        thisbutton.BackColor = Drawing.Color.AntiqueWhite
    End Sub

\\Dim btn As New Button()
AddHandler btn.Click, AddressOf Me.btn_Click
Me.Controls.Add(btn)
..
..
..
Private Sub btn_Click( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs _
)
    MsgBox("Hello World!")
End Sub
///

DataGrid1.EndEdit(Nothing, DataGrid1.CurrentRowIndex, False)
DataGrid1.BindingContext(DataGrid1.DataSource,
DataGrid1.DataMember).EndCurrentEdit()

'save record first before adding course

SqlDataAdapter2.Update(DsStudentCourse1)

For Each f As Form In Me.MdiChildren
    If f.GetType Is GetType(Form1) Then
       Trace.WriteLine(DirectCast(f, Form1).TextBox1.Text)
    End If
Next

Ken

grdMyGrid.Datasource = Nothing
grdMyGrid.Refresh
grdMyGrid.Datasource = ? (name of your datasource)

using System;
namespace RootLevel {
    public class Root {
    }
}

using System;
namespace SecondLevel {
    public class Child {
        private RootLevel.Root _root;
        public RootLevel.Root Root {
            get {
                return _root;
            }
            set {
                _root = value;
           }
        }
    }
}

using System;
namespace RootLevel {
    public class Root {
        private SecondLevel.Child _child1; //there will be other children
        public SecondLevel.Child Child1 {
            get {
                if (_child1 == null) {
                    _child1 = new SecondLevel.Child();
                    _child1.Root = this;
                }
                return _child1;
            }
        }
    }
}

Public Class Root
End Class

Public Class Child
    Private _root As RootLevelVB.Root
    Public Property Root() As RootLevelVB.Root
        Get
            Return _root
        End Get
        Set(ByVal value As RootLevelVB.Root)
            _root = value
        End Set
    End Property
End Class

Public Class Root
    Private _child1 As SecondLevelVB.Child 'there will be other children
    Public ReadOnly Property Child1() As SecondLevelVB.Child
        Get
            If _child1 Is Nothing Then
                _child1 = New SecondLevelVB.Child
                _child1.Root = Me
            End If
            Return _child1
        End Get
    End Property
End Class

If dtrUser.HasRows Then
While dr.Read
If CType(dtrUser("accountstat"), String) = "inactive" Then
txtInvalid.text = "Your account has not been activated.  Follow the
instructions sent to you via email to activate your account."
End While
End If

\\ Dim Sql As String = "SELECT * from A, B Where " & _
    "A.n = B.n AND A.n = 10"
 Dim Conn As New OleDbConnection(connString)
 Dim da As New OleDbDataAdapter(Sql, Conn)
 da.Fill(ds, "A")
 da.Fill(ds, "B")
 Conn.Close()
'In this sample the datarelation is in my opinion not needed
'However without that A.n = 10 than it is needed
'------------------------------
Dim drlA As New DataRelation _
    ("AA", ds.Tables("A").Columns("A.n"), _
 ds.Tables("B").Columns("B.n"))
        ds.Relations.Add(drlA)
Dim dv As New DataView(ds.Tables("A"))
DataGrid1.DataSource = dv
DataGrid1.Expand(-1)
////

Dim dv2 As New DataView(ds.Tables("B"))

Dim dv As New DataView(ds.Tables("Select t1.* From B t1 
Join A t2 On t1.ID = t2.ID"))

Dim drView As DataRowView
drView = DirectCast(curMgr.Current, DataRowView)
dv2.RowFilter = "Id = " & drView("Id").ToString()

Function addLine(ByVal text As String, ByVal color As Color)

RichTextBox1.SelectionColor = color

RichTextBox1.AppendText("[" + Date.Now.ToShortTimeString + "]: " + text +
vbCrLf)

End Function

\\Private Const WM_VSCROLL As Int32 = &H115
Private Const SB_BOTTOM As Int32 = 7

Private Declare Auto Function SendMessage Lib "user32.dll" ( _
    ByVal hwnd As IntPtr, _
    ByVal wMsg As Int32, _
    ByVal wParam As Int32, _
    ByVal lParam As Int32 _
) As Int32

Private Sub AddLine(ByVal Destination As RichTextBox, _
       ByVal Text As String)
    With Destination
        .AppendText(Text & ControlChars.NewLine)
        SendMessage(Destination.Handle, WM_VSCROLL, _ 
       SB_BOTTOM, 0)
    End With
End Sub
///

Colors
  |_Red
  |_Green
  |_Yellow

Private Sub reporttree_Load(ByVal sender As System.Object, _ 
   ByVal e As System.EventArgs) Handles MyBase.Load

Me.FormBorderStyle = FormBorderStyle.None

' this would make the form purely the designated color, without

' the control or windowstate menus and without a caption, 
' drag top, icon, etc.

Me.Height = 728

Me.Width = 360

Dim p As New Drawing2D.GraphicsPath

p.StartFigure()

p.AddArc(New Rectangle(0, 0, 40, 40), 180, 90)

p.AddLine(40, 0, Me.Width - 40, 0)

p.AddArc(New Rectangle(Me.Width - 40, 0, 40, 40), -90, 90)

p.AddLine(Me.Width, 40, Me.Width, Me.Height - 40)

p.AddArc(New Rectangle(Me.Width - 40, Me.Height - 40, 40, _ 
   40), 0, 90)

p.AddLine(Me.Width - 40, Me.Height, 40, Me.Height)

p.AddArc(New Rectangle(0, Me.Height - 40, 40, 40), 90, 90)

p.CloseFigure()

Me.Region = New Region(p)

Me.BackColor = Color.Thistle

' jsn: above simple rounds the form -----------

TreeView1.HotTracking = True

' jsn: above is required for the mouse click to launch the form/report

Dim node, node2, node3, node4, node5, node4a, node5a _ 
   As TreeNode

node = TreeView1.Nodes.Add("Standard Reports")

node2 = node.Nodes.Add("Sales Reports")

node3 = node.Nodes.Add("Dealer Reports")

node4 = node.Nodes.Add("Financial Reports")

node4a = node4.Nodes.Add("A/R Reports")

node5 = node.Nodes.Add("Miscellaneous Reports")

node5a = node5.Nodes.Add("CMG Audit Reports")

node2.Nodes.Add("Sell-Through Analysis")

node2.Nodes.Add("Insufficient Sales Activity Report")

node2.Nodes.Add("Issue Sales Summary - Selected Titles")

node2.Nodes.Add("Revised Issue Sales Summary By Publisher")

node2.Nodes.Add("Sales By Category Report")

node2.Nodes.Add("Sales Exceed Draw Report")

node2.Nodes.Add("Store Efficiency Report (Hollywood Video)")

node2.Nodes.Add("Weekly POS Sales Report")

node3.Nodes.Add("Dealer History Report")

node3.Nodes.Add("Dealer Penetration Report")

node3.Nodes.Add("Draw Report")

node3.Nodes.Add("Individual Dealer History Report")

node3.Nodes.Add("New Weider Stores")

node3.Nodes.Add("Non-Receipt Report")

node3.Nodes.Add("POS Draw Report")

node3.Nodes.Add("Reshipper Active Store Distribution Report")

node3.Nodes.Add("State / Zip Shipment Summary")

node3.Nodes.Add("Store Location Report")

node3.Nodes.Add("Store Address List By Title")

node4a.Nodes.Add("A/R By IMC Account")

node4a.Nodes.Add("A/R By Publisher")

node4a.Nodes.Add("A/R Detail")

node4a.Nodes.Add("A/R Summary")

node4.Nodes.Add("Invoice Reprints")

node4.Nodes.Add("Publisher Payables Reprints")

node5.Nodes.Add("Class Of Trade Report")

node5.Nodes.Add("Labels - Most Recent Print Order")

node5.Nodes.Add("Price Change Notice")

node5.Nodes.Add("Production Schedule Report")

node5.Nodes.Add("Revenue Analysis")

node5.Nodes.Add("Special County Report")

node5a.Nodes.Add("CMG Dealer Guide")

node5a.Nodes.Add("CMG Universal Dealer Guide")

node5a.Nodes.Add("O/R Distribution Report")

TreeView1.CollapseAll()

node.Expand()

End Sub

Private Sub TreeView1_AfterSelect(ByVal sender As Object, _ 
   ByVal e As
System.Windows.Forms.TreeViewEventArgs) Handles _ 
   TreeView1.AfterSelect

If glfonload = True Then

glfonload = False

'jsn: I'll explain this below

Exit Sub

End If

Select Case e.Node.Text

Case "Labels - Most Recent Print Order"

Me.Hide()

glfonload = True

gl_browseprintvar = "f:\imcapps\lblm.rpt"

Dim newmdichildb As New reportprinter_viewerparam

newmdichildb.Text = "Labels"

newmdichildb.ShowDialog()

Case "Publisher Payables Reprints"

glfonload = True

Application.DoEvents()

Dim newmdichild As New pubreprints

newmdichild.Text = "Publisher Payables Reprints"

newmdichild.MdiParent = Me.MdiParent

newmdichild.Show()

Case "Invoice Reprints"

glfonload = True

Application.DoEvents()

Dim newmdichild As New invoiceprint

newmdichild.MdiParent = Me.MdiParent

newmdichild.Show()

Case "A/R By IMC Account"

glfonload = True

Application.DoEvents()

Dim newmdichild As New ageingsbyaccount

newmdichild.MdiParent = Me.MdiParent

newmdichild.Show()

' jsn: end select at some point

If glfonload Then

Timer1.Start()

End If

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e _ 
   As System.EventArgs) Handles Timer1.Tick

Dim i, j As Integer

For i = 1 To 15000

For j = 1 To 250

Next

Next

Me.Close()

End Sub