Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        If b = True Then
            Dim g As Graphics = e.Graphics
            With PictureBox1
                g.FillRectangle(ColorDialog1.Color, 5, 5, 80, 30)
            End With
        End If
    End Sub

fg viperbone