Visual Basic

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
<br />
        PrintDocument1.PrinterSettings.PrinterName = "8500PS"<br />
<br />
        Dim ps As New Printing.PaperKind<br />
        ps = Printing.PaperKind.A3<br />
        PrintDocument1.DefaultPageSettings.PaperSize.RawKind = ps<br />
<br />
        PrintDocument1.Print()<br />
    End Sub<br />

<br />
    Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage<br />
        <br />
Dim g As Graphics = e.Graphics<br />
        g.DrawImage(Image.FromFile("C:\1\Winter.png"), 5, 5)<br />
<br />
    End Sub<br />

dt.Columns.Add(New DataColumn("Cell", GetType(Long)))

For Each row As DataRow In dtStud.Rows

     dr(3) = row("stud_phone")
     dt.Rows.Add(dr)
Next

'Dim dgView As New DataView(dt)
dgrStudList.DataSource = dt

dim streamwriter as streamwriter("test.txt")
w.writeline("hello")  

<br />
<DllImportAttribute("WIN32SmartDLL.dll")> _ <br />
Private Shared Function AddNumbers(ByVal a As Integer, ByVal b As Integer) As Integer <br />
End Function <br />
<br />
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) <br />
    Dim answer As Integer = AddNumbers(25, 25) <br />
    <br />
End Sub <br />

Private writer As Lucene.Net.Index.IndexWriter

Private Sub InsertDBIndexData(ByVal sCPR As String)
        Dim doc As New Document
        Dim f1 As New Field("CPR", sCPR, Field.Store.YES, Field.Index.TOKENIZED)
        doc.Add(f1)
        writer.AddDocument(doc)
        doc = Nothing
        Return
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim odConnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=....mdb...")
        odConnection.Open()
        writer = New Lucene.Net.Index.IndexWriter(DBIndexLocation, New StandardAnalyzer, True)

        Dim odCommand As OleDbCommand = New OleDbCommand("select * from TPers", odConnection)
        'Dim odReader As OleDbDataReader = odCommand.ExecuteReader
        Dim odDataAdaptor As OleDbDataAdapter = New OleDbDataAdapter(odCommand)
        Dim odDataSet As DataSet = New DataSet
        odDataAdaptor.Fill(odDataSet, "TPers")

        Dim odDataTable As DataTable = odDataSet.Tables("TPers")

        For Each dr As DataRow In odDataTable.Rows
            InsertDBIndexData(dr("cpr").ToString)
        Next

        writer.Optimize()
        writer.Close()
        odDataAdaptor.Dispose()
        odConnection.Close()
    End Sub