How to Print Form Windows Forms Application

I am runnig the same code its running

Imports System.Drawing.Printing
Public Class Form1
    Dim WithEvents PrintButton As New Button
    Dim WithEvents PrntDoc As New PrintDocument
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        PrintButton.AutoSize = True
        PrintButton.Font = New Font(PrintButton.Font.FontFamily, 38)
        PrintButton.Text = "PrintButton"
        PrintButton.Parent = Me
    End Sub
    Private Sub PrintButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PrintButton.Click
        PrntDoc.Print()
    End Sub
    Private Sub PrntDoc_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs) Handles PrntDoc.PrintPage
        Using Bmp As New Bitmap(PrintButton.Width, PrintButton.Height)
            PrintButton.DrawToBitmap(Bmp, New Rectangle(Point.Empty, Bmp.Size))
            e.Graphics.DrawImage(Bmp, 100, 100)
        End Using
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PrntDoc.Print()
    End Sub
End Class

 Image