Public Class Form1
  Private WithEvents DruckDoc As New Printing.PrintDocument
  Dim Rect As Rectangle = New Rectangle(0, 0, 120, 135)
  Dim GroupBoxPaint As Boolean

  Private Sub Malen(ByVal gr As Graphics)
    ' Irgendwelche "Grafik"
    gr.DrawEllipse(Pens.Blue, 20, 30, 80, 80)
    gr.DrawLine(Pens.Red, 20, 70, 100, 70)
    gr.DrawIcon(Me.Icon, 51, 45)

    Dim fnt As Font = New Font("Arial", 11, FontStyle.Bold, _
        GraphicsUnit.Pixel)
    gr.DrawString("Test", fnt, Brushes.Blue, 45, 80)
  End Sub

  Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
     System.Windows.Forms.PaintEventArgs) Handles Me.Paint
     ' Selbstzeichnung auf Form
    Dim gr As Graphics = e.Graphics
    Call Malen(gr)
  End Sub

  Private Sub GroupBox1_Paint(ByVal sender As Object, ByVal e As_
     System.Windows.Forms.PaintEventArgs) Handles GroupBox1.Paint
     ' Selbstzeichnung auf GroupBox
    If GroupBoxPaint = True Then
      Dim gr As Graphics = e.Graphics
      Call Malen(gr)
    End If
  End Sub

  Private Sub Drucken(ByVal sender As Object, ByVal e As _
    Drawing.Printing.PrintPageEventArgs) Handles DruckDoc.PrintPage
    Dim gr As Graphics = e.Graphics
    Call Malen(e.Graphics)
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal _
     e As System.EventArgs) Handles Button1.Click
    ' auf Groupbox
    Dim gr As Graphics = GroupBox1.CreateGraphics
    Call Malen(gr)

    GroupBoxPaint = True
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal _
     e As System.EventArgs) Handles Button2.Click
     ' zur Bitmap
    Dim Bmp As Bitmap = New Bitmap(Rect.Width, Rect.Height)
    Dim gr As Graphics = Graphics.FromImage(Bmp)
    gr.FillRectangle(Brushes.White, Rect)
    Call Malen(gr)
    Clipboard.SetImage(Bmp)
    MsgBox("Die Bitmap ist in der Zwischenablage")
  End Sub

  Private Sub Button3_Click(ByVal sender As System.Object, ByVal _
     e As System.EventArgs) Handles Button3.Click
     ' zum Drucker
    Dim printpreviewDlg As New PrintPreviewDialog
    With printpreviewDlg
      .Document = DruckDoc
      .WindowState = FormWindowState.Maximized
      .ShowDialog(Me)
    End With
    printpreviewDlg = Nothing
  End Sub

  Private Sub Button4_Click(ByVal sender As System.Object, ByVal _
     e As System.EventArgs) Handles Button4.Click
     ' Beenden
     Me.Close()
   End Sub
End Class