Visual Basic

Function SomeHandler(ByVal MyMessage As String)
   MsgBox(MyMessage)
   Return 0
End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   AddHandler Button1, AddressOf SomeHandler("Hello World!")
End Sub

If e.ItemIndex = Me.SelectedIndex Then

    Dim brush As New Drawing2D.LinearGradientBrush(e.Bounds, Color.DodgerBlue, _
        Color.White, Drawing2D.LinearGradientMode.Horizontal)
    Try
        e.Graphics.FillRectangle(brush, e.Bounds)
    Finally
        brush.Dispose()
    End Try

    e.Graphics.DrawImage(ImageList1.Images(e.ItemIndex), e.Item.Bounds.X + 2, e.Item.Bounds.Y, 130, 96)
    e.Item.Text = "                                  " & Trim(e.Item.Text)

Else

    e.Graphics.DrawImage(ImageList1.Images(e.ItemIndex), e.Item.Bounds.X + 2, e.Item.Bounds.Y, 130, 96)
    e.Item.ImageIndex = e.ItemIndex
    e.Item.Text = "
                         " & Trim(e.Item.Text)
End If

e.DrawText()

 Dim pd As New PrintDocument

 AddHandler pd.PrintPage, AddressOf pd_PrintPage

'Event for printpage
Private Sub pd_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs)
        Dim yPos As Single = 0
        Dim count As Integer = 0
        Dim leftMargin As Single = 0
        Dim topMargin As Single = 0
        Dim line As String = Nothing

        linesPerPage = e.MarginBounds.Height / printFont.GetHeight(e.Graphics)
        ' Iterate over the file, printing each line.
        While count < linesPerPage + 9  ' manipulate the pagelength according to your interest

            line = streamToPrint.ReadLine()
            If line Is Nothing Then
                Exit While
            End If
            yPos = topMargin + count * printFont.GetHeight(e.Graphics)
            e.Graphics.DrawString(line, printFont, Brushes.Black, leftMargin, _
                yPos, New StringFormat)
            count += 1
        End While
        Pgnum = Pgnum + 1

        If Not (line Is Nothing) Then
            e.HasMorePages = True
            count = count + 1
            yPos = topMargin + count * printFont.GetHeight(e.Graphics)
            e.Graphics.DrawString("Page:" + CStr(Pgnum), printFont, Brushes.Black, leftMargin + 700, _
                            yPos, New StringFormat)
        Else
            e.HasMorePages = False
            count = count + 1
            yPos = topMargin + count * printFont.GetHeight(e.Graphics)
            e.Graphics.DrawString("Page:" + CStr(Pgnum), printFont, Brushes.Black, leftMargin + 700, _
                            yPos, New StringFormat)
        End If
    End Sub

PrintPreviewDialog1.Document = pd
PrintPreviewDialog1.ShowDialog()