كيف استطيع تسجيل قيمة في الذاكرة

Private g As Graphics
Dim isDraw As Boolean = False
Dim rect As New Rectangle(New Point(0, 0), New Size(0, 0))
Dim startPoint As Point

Protected Overrides Sub OnHandleCreated(ByVal e As System.EventArgs)
MyBase.OnHandleCreated(e)

g = Graphics.FromHwnd(Me.Handle)

End Sub

Protected Overrides Sub OnHandleDestroyed(ByVal e As System.EventArgs)

g.Dispose()
MyBase.OnHandleDestroyed(e)

End Sub

Private Sub Form2_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown

If (e.Button = MouseButtons.Left) Then
isDraw = True
End If

startPoint = (New Point(e.X, e.Y))

End Sub

Private Sub Form2_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

If isDraw Then

Dim endPoint As Point = (New Point(e.X, e.Y))
Dim width As Integer = endPoint.X - startPoint.X
Dim height As Integer = endPoint.Y - startPoint.Y
rect = New Rectangle(startPoint.X, startPoint.Y, width, height)

g.FillRectangle(Brushes.Aqua, rect)
g.DrawRectangle(New Pen(Color.Red, 4), rect)

End If

End Sub

Private Sub Form2_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp

isDraw = False

End Sub

End Class

Public Class Form2