drawing

[aamir55]

i have written small programs which draws the rectangle on the picture box
here i m using two forms
form1 for drawing
form2 for toolbox for rectangle
first problem is that how can i get background color of picColor bcoz when select color so rectangle should be in that color so i m using this code
for drawing button

Dim LocX, LocY As Integer
Dim width, height As Integer
Dim color As ColorDialog
Private Sub btnDraw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDraw.Click
Dim brush As Pen
Dim g As Graphics
LocX = nudX.Value
LocY = nudY.Value
width = nudWidth.Value
height = nudHeight.Value

Dim rect As New Rectangle(LocX, LocY, width, height)
g = frmDrawing.picDrawing.CreateGraphics
g.DrawRectangle(Pens.Brown, rect)
End Sub

Private Sub picColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picColor.Click
If ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
picColor.BackColor = ColorDialog1.Color
End If
End Sub


so second problem is that as long i changes values in numeric up down control so it shows strange behaviour
rectangle should be moved as i change value but here rectangle is filling
and similary when i change height and width, the problem is same
this is the code here

Private Sub nudX_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles nudX.ValueChanged
Dim brush As Pen
Dim g As Graphics
LocX = nudX.Value
LocY = nudY.Value
width = nudWidth.Value
height = nudHeight.Value

Dim rect As New Rectangle(LocX, LocY, width, height)
g = frmDrawing.picDrawing.CreateGraphics
g.DrawRectangle(Pens.Brown, rect)
End Sub

Private Sub nudY_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles nudY.ValueChanged
Dim brush As Pen
Dim g As Graphics
LocX = nudX.Value
LocY = nudY.Value
width = nudWidth.Value
height = nudHeight.Value

Dim rect As New Rectangle(LocX, LocY, width, height)
g = frmDrawing.picDrawing.CreateGraphics
g.DrawRectangle(Pens.Brown, rect)
End Sub

Private Sub nudWidth_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles nudWidth.ValueChanged
Dim brush As Pen
Dim g As Graphics
LocX = nudX.Value
LocY = nudY.Value
width = nudWidth.Value
height = nudHeight.Value

Dim rect As New Rectangle(LocX, LocY, width, height)
g = frmDrawing.picDrawing.CreateGraphics
g.DrawRectangle(Pens.Brown, rect)
End Sub

third problem is that as long i move toolbox over drawn shapes,these are erased
when i first run my program and changes values in numeric up down control so nothing is done and if i once click on draw then these values are changed
how can i solve these problems
thanks