vb.net onpain(source, entire clone from source and path of clone from source)

Imports System
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Windows.Forms
Imports System.IO
Public Class Form1
    Overloads Function CopyBitmap(source As Bitmap) As Bitmap
        Return New Bitmap(source)
    End Function
    Overloads Function CopyBitmap(source As Bitmap, part As Rectangle) As Bitmap
        Dim bmp As New Bitmap(part.Width, part.Height)
        Dim g As Graphics = Graphics.FromImage(bmp)
        g.DrawImage(source, 0, 0, part, GraphicsUnit.Pixel)
        g.Dispose()
        Return bmp
    End Function
    Protected Overrides Sub OnPaint(e As PaintEventArgs)
        Dim arialFont As Font
        Dim blackBrush As Brush
        arialFont = New Font("Arial", 10, FontStyle.Regular)
        blackBrush = New SolidBrush(Color.Black)
        Dim sidesize As Integer = 300
        Dim third As Integer = CInt(sidesize / 3)
        Dim bm_sourceaa As New Bitmap(Bitmap.FromFile("C:\Users\Laptop\Desktop\troll\cute girl2.jpg"))
        Dim bm_source As New Bitmap(Bitmap.FromFile("C:\Users\Laptop\Desktop\troll\cute girl2.jpg"), _
            CInt(200), bm_sourceaa.Height * 200 / bm_sourceaa.Width)
        ' Copy entirely as a clone.
        Dim clone As Bitmap = CopyBitmap(bm_source)
        ' Copy the center part of the bitmap.
        Dim center As Bitmap =  CopyBitmap(bm_source, New Rectangle(0, 100, 100, 50))
        Dim DestPath As String = "C:\Users\Laptop\Desktop\rathana\"
        If Not Directory.Exists(DestPath) Then
            Directory.CreateDirectory(DestPath)
        End If
        clone.Save("C:\Users\Laptop\Desktop\rathana\2newbitmap.bmp", ImageFormat.Bmp)
        Dim y As Integer = 10
        e.Graphics.DrawString("source bitmap:", arialFont, blackBrush, 10, y)
        y += 20
        e.Graphics.DrawImage(bm_source, 10, y)
        y += bm_source.Height + 10
        e.Graphics.DrawString("clone bitmap:", arialFont, blackBrush, 10, y)
        y += 20
        e.Graphics.DrawImage(clone, 10, y)
        y += clone.Height + 10
        e.Graphics.DrawString("center part of bitmap:", arialFont, blackBrush, 10, y)
        y += 20
        e.Graphics.DrawImage(center, 10, y)
        y += center.Height + 10
        'Dispose graphic objects.
        arialFont.Dispose()
        blackBrush.Dispose()
    End Sub
End Class