Dim inputPath As String
        Dim outputPath As String

        Dim input As New FileStream(inputPath, FileMode.Open,
FileAccess.Read)
        Dim output As New FileStream(outputPath, FileMode.Create,
FileAccess.Write)

        Dim count As Integer = 1024
        Dim buffer(count - 1) As Byte

        count = input.Read(buffer, 0, count)
        Do Until count = 0
            ' modify each byte in buffer here
            output.Write(buffer, 0, count)
            count = input.Read(buffer, 0, count)
        Loop

        input.Close()
        output.Close()

        Dim FS as new Filestream("FileName",Mode)
        Dim Buffer() as byte

        'Get the bytes from file to a byte array
        redim Buffer(FS.Length-1)
        FS.Read(Buffer,0,Buffer.Length)

        'Do your stuff... :-)
        For i as int32=0 to Buffer.Length-1
        Buffer(i) = '...... Your code.
        next

        'Save the byte array and close the stream.
        FS.Position=0
        FS.Write(Buffer,0,Buffer.length)
        FS.Close

Namespace SimpleControlExample

    Public Class SimpleControl
        Inherits System.Windows.Forms.UserControl

        Public Event ButtonClick(ByVal sender As System.Object, 
                 ByVal e As System.EventArgs)

#Region " Windows Form Designer generated code "

        Public Sub New()
            MyBase.New()

            'This call is required by the Windows Form Designer.
            InitializeComponent()

            'Add any initialization after the InitializeComponent() call

        End Sub

        'UserControl overrides dispose to clean up the component list.
        Protected Overloads Overrides Sub Dispose(ByVal disposing As
Boolean)
            If disposing Then
                If Not (components Is Nothing) Then
                    components.Dispose()
                End If
            End If
            MyBase.Dispose(disposing)
        End Sub

        'Required by the Windows Form Designer
        Private components As System.ComponentModel.IContainer

        'NOTE: The following procedure is required by the Windows Form
Designer
        'It can be modified using the Windows Form Designer.
        'Do not modify it using the code editor.
        Friend WithEvents Button1 As System.Windows.Forms.Button
        <System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
            Me.Button1 = New System.Windows.Forms.Button
            Me.SuspendLayout()
            '
            'Button1
            '
            Me.Button1.Location = New System.Drawing.Point(40, 68)
            Me.Button1.Name = "Button1"
            Me.Button1.Size = New System.Drawing.Size(76, 23)
            Me.Button1.TabIndex = 0
            Me.Button1.Text = "Raise Event!"
            '
            'SimpleControl
            '
            Me.Controls.Add(Me.Button1)
            Me.Name = "SimpleControl"
            Me.ResumeLayout(False)

        End Sub

#End Region

        Private Sub Button1_Click(ByVal sender As System.Object,
             ByVal e As System.EventArgs) Handles Button1.Click
            RaiseEvent ButtonClick(Me, e)
        End Sub
    End Class
End Namespace

Imports System.Text
Imports System.Security.Cryptography
Imports System.IO

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim fs As FileStream = New FileStream("c:\ConfDenise.PDF",
FileMode.Open)
    Dim r As BinaryReader = New BinaryReader(fs)

    Public Function GenerateHash(ByRef Buff() As Byte) As String
        Dim Md5 As New MD5CryptoServiceProvider()
        Dim ByteHash() As Byte = Md5.ComputeHash(Buff)
        Return Convert.ToBase64String(ByteHash)
    End Function

    #Region " Windows Form Designer generated code "
    ' snip
    #End Region

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
        fs.Seek(0, SeekOrigin.Begin)
        Label1.Text = GenerateHash(r.ReadBytes(fs.Length))
    End Sub
End Class

Function GetHash() As String

    Dim cs As CryptoStream
    Dim ms As MemoryStream = New MemoryStream
    Dim md5Hash As MD5CryptoServiceProvider = New MD5CryptoServiceProvider

    Try

        Dim buffer As Byte() = New Byte() {1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
11, 12, 13, 14, 15}

        cs = New CryptoStream(ms, md5Hash, CryptoStreamMode.Write)
        cs.Write(buffer, 0, buffer.Length)

        cs.FlushFinalBlock()
        Return Convert.ToBase64String(md5Hash.Hash())

    Catch ex As Exception

        MsgBox("Error during hash operation: " + ex.ToString())

    Finally
        If Not (cs Is Nothing) Then cs.Close()
        If Not (md5Hash Is Nothing) Then md5Hash.Clear()
    End Try
End Function

    Public Class Class1
            Private Class Class2
            End Class
    End Class

    Public Class LinkedList

        Private Class Node
            Public Data As Object
            Public Next As Node
            Public Previous As Node
        End Class

        Private m_head As Node
        Private m_tail As Node

        Public Sub Add(data As Object)
            Dim node As New Node
            node.Data = data
            node.Next = m_head
            node.Previous = Nothing
            m_head = node
        End Sub
    End Class

\\Dim c As New Collection()   ' or ArrayList.
c.Add(...)
///

Imports System.Data.Odbc.OdbcConnection

Public Class Test
    Inherits System.Windows.Forms.Form

+ windows form designer generated code

Private Sub Test_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
            Dim MyConString As String = "DRIVER={MySQL ODBC 3.51
Driver};" & _
            "SERVER=db.pcextreme.nl;" & _
            "DATABASE=test;" & _
            "UID=root;" & _
            "PASSWORD=pass;" & _
            "OPTION=3"
            Dim MyConnection As New
System.Data.Odbc.OdbcConnection(MyConString)

            MyConnection.Open()
        End Sub
    End Class

  Public Function Convert(ByVal Base As Integer, ByVal Number As Integer) As String

        Do
            If Not Number / Base = 0 Then
                Convert &= (Number Mod Base).ToString
                Number = Number / Base
            Else
                Return StrReverse(Convert)
            End If
        Loop

    End Function

>   Public Function Convert(ByVal Base As Integer, ByVal Number As Integer)
As String
>
>         Do
>             If number <> 0 Then
>                 Convert &= (Number Mod Base).ToString
>                 Number = Number \ Base
>             Else
>                 Return StrReverse(Convert)
>             End If
>         Loop
>
>     End Function
>

\\\\\Public Class SoundClass
        Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name As String, _ 
                ByVal hmod As Integer, ByVal flags As Integer) As Integer
        ' name specifies the sound file when the SND_FILENAME flag is set
        ' hmod specifies an executable file handle
        ' hmod must be Nothing if the SND_RESOURCE flag is not set
        ' flags specifies which flags are set
        Public Const SND_SYNC = &H0          ' play synchronously
        Public Const SND_ASYNC = &H1         ' play asynchronously
        Public Const SND_FILENAME = &H20000  ' name is file name
        Public Const SND_RESOURCE = &H40004  ' name is resource name or atom
        Public Sub PlaySoundFile(ByVal filename As String)
            ' Plays a sound from filename
            PlaySound(filename, Nothing, SND_FILENAME Or SND_ASYNC)
        End Sub
    End Class

    Private Sub Button1_Click(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles Button1.Click
      Dim SoundInst As New SoundClass
        SoundInst.PlaySoundFile("C:\ringout.wav")
    End Sub
/////////

Module Startup
Public myMainForm As Form1
Sub Main()
myMainForm = New Form1
Windows.forms.Application.Run(myMainform)
End Sub
End Module

        '
        'dcCost
        '
        Me.dcCost.ColumnName = "Cost"
        Me.dcCost.DataType = GetType(System.Decimal)
        Me.dcCost.Expression = "UnitPrice * Quantity"
        Me.dcCost.ReadOnly = True

Dim ds As New DataSet
da2.Fill(ds, "PriceQuantity")
Dim dcTotal As New DataColumn("TotalPrice",
System.Type.GetType("System.Decimal"))
dcTotal.Expression = "Price * Quantity"
dcTotal.ReadOnly = True 'Don't really need this
ds.Tables(0).Columns.Add(dcTotal)
DataGrid1.DataSource = ds.Tables(0)