\\TextBox1.Text = "ABC"
        For i As Integer = 1 To 3
            Me.TextBox1.Text += ChrW(67 + i)
            Me.Show()
            Application.DoEvents()
            Threading.Thread.Sleep(1000)
        Next
TextBox1.Select(TextBox1.Text.Length, 0)
///

    Me.Cursor = Cursors.WaitCursor
        'reading from database
        'showing file
    Me.Cursor = Cursors.Arrow

    Me.Cursor = New Cursor("wait01.cur")

Dim oXL as Excel.Application
Dim oWB as Excel.WorkBook
'Do some processing stuff
'Before the routine exits, the below is done
oWB = Nothing
oXL.Quit()
oXL = Nothing

\\Private m_Child As Form2

Private Sub Button1_Click( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs _
) Handles Button1.Click
    If m_Child Is Nothing Then
        m_Child = New Form2()
        m_Child .MdiParent = Me
        AddHandler m_Child.Load, AddressOf Me.MdiChild_Load
        AddHandler m_Child.Closed, AddressOf Me.MdiChild_Closed
    End If
    m_Child.Show()    ' ...
End Sub

Private Sub MdiChild_Load( _
    ByVal sender As System.Object, _
    ByVal e As System.EventArgs _
)
    MsgBox( _
        "MdiChild with handle " & _
        DirectCast(sender, Form).Handle.ToString() & _
        " loaded!" _
    )
End Sub

Private Sub MdiChild_Closed( _
    ByVal sender As Object, _
    ByVal e As System.EventArgs _
)
    MsgBox( _
        "MdiChild with handle " & _
        DirectCast(sender, Form).Handle.ToString() & _
        " closed!" _
    )
End Sub
///

\\If <...>.IsDisposed Then
    ...
End If
///

<MDI PARENT FORM CODE>
Private Sub MDIParent_Closing(ByVal sender As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Debug.WriteLine("MDIParent_Closing " & Now & " " &
e.Cancel.ToString)
    End Sub

Private Sub MDIParent_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
        Dim f As New MDIChild
        f.MdiParent = Me
        f.Show()
    End Sub

<MDI CHILD FORM CODE>
Private Sub MDIChild_Closing(ByVal sender As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Debug.WriteLine("MDIChild_Closing " & Now & " " &
e.Cancel.ToString)
    End Sub

<MODULE1 CODE>
Sub Main()
    Dim f As New ClassLibrary1.MDIParent
    f.ShowDialog()
End Sub

public static string CreateSalt(int size)
{
  RNGCryptoServiceProvider rng = new RNGCryptoServiceProvider();
  byte[] buff = new byte[size];
  rng.GetBytes(buff);
  return Convert.ToBase64String(buff);
}Creating a Hash Value (with Salt)

public static string CreatePasswordHash(string pwd, string salt)
{
  string saltAndPwd = string.Concat(pwd, salt);
  string hashedPwd =
        FormsAuthentication.HashPasswordForStoringInConfigFile(
                                             saltAndPwd, "SHA1");
  return hashedPwd;
}

While Not myStreamReader.ReadLine() Is Nothing
  i = i + 1
End While

'This is untested code
myProgressBar.Value = 0
While myStreamReader.Peek <> -1
   strLine = myStreamReader.ReadLine()
   intPercent = (strLine.Length / myStreamReader.BaseStream.Length) * 100

   'Do something with strLine here 

   'Update the progress bar
   myProgressBar.Value += intPercent
End While

While Not myStreamReader.ReadLine() Is Nothing
  i = i + 1
End While

'This is untested code
myProgressBar.Value = 0
While myStreamReader.Peek <> -1
   strLine = myStreamReader.ReadLine()
   intPercent = (strLine.Length / myStreamReader.BaseStream.Length) * 100

   'Do something with strLine here 

   'Update the progress bar
   myProgressBar.Value += intPercent
End While

        'Get Screen Coorinate of Mouse Cursor

        Dim p As Point = New Point(dgrid.Parent.MousePosition.X, _

            dgrid.Parent.MousePosition.Y)

        'Convert Screen Coordinates to Local Coordinates

        Dim pC As Point = dgrid.PointToClient(p)



        'Runs Hit Test on Datagrid

        Dim ht As DataGrid.HitTestInfo = dgrid.HitTest(pC)



        'Check if Mouse is over Cell

        If ht.Type = DataGrid.HitTestType.Cell Then

            'Get current row and column

            Dim r As Integer = ht.Row

            Dim c As Integer = ht.Column



            'Set Current Cell to Cell under mouse cursor

            dgrid.CurrentCell = New DataGridCell(r, c)



            'Gets Information for passing to paint method

            Dim ds As DataGridTableStyle = dgrid.TableStyles(0)

            Dim d As DataGridEnableTextBoxColumn

            Dim curr As CurrencyManager

            Dim g As Graphics = dgrid.CreateGraphics

            Dim rect As Rectangle

            Dim fBrush As SolidBrush = New _ 

                            SolidBrush(Color.Gold)

            Dim bBrush As SolidBrush = New _ 

                            SolidBrush(Color.FromArgb(51, 51, 51))

            curr = CType(dgrid.Parent.BindingContext(dgrid.DataSource), _ 

                            CurrencyManager)

            'Loops through all columns

            Dim i As Integer

            For i = 0 To dgrid.VisibleColumnCount - 1

                d = CType(ds.GridColumnStyles(i), _ 

                    DataGridEnableTextBoxColumn)

                If d.Width > 0 Then

                    rect = dgrid.GetCellBounds(r, i)

                    d.PaintCol(g, rect, curr, r, bBrush, fBrush, False)

                End If

            Next

        End If

    Private Sub DataGrid1_ItemCreated(ByVal sender _ 

            As Object, ByVal e As

System.Web.UI.WebControls.DataGridItemEventArgs) _ 

            Handles DataGrid1.ItemCreated

        Dim foo As Web.UI.WebControls.DataGridItem = e.Item

        foo.Attributes.Add("onmouseover", "bgColor='#345622'")

        foo.Attributes.Add("onmouseout", "bgColor=''")

    End Sub

\\Dim p As New System.Diagnostics.ProcessStartInfo()
p.Verb = "print"
p.WindowStyle = ProcessWindowStyle.Hidden
p.FileName = "C:\filename.htm"
p.UseShellExecute = True
System.Diagnostics.Process.Start(p)
///