Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim PP As New PrintPreviewDialog
        PP.Document = New PPD
        PP.ShowDialog()
    End Sub
 
End Class
 
Public Class PPD
    Inherits Printing.PrintDocument
 
    Private Sub PPD_PrintPage(ByVal sender As Object, ByVal e As _
      System.Drawing.Printing.PrintPageEventArgs) Handles MyBase.PrintPage
        e.Graphics.FillRectangle(New SolidBrush(Color.Red), New RectangleF(50, _
        50, 500, 500))
    End Sub
 
End Class