Drawing an rectangle around the panel

[aashish_9601]

Private Sub From1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        Dim rec As New Rectangle(Panel2.Left - 1, Panel2.Top - 1, Panel2.Width + 1, Panel2.Height + 1)
        Dim r As New Region(rec)
        Me.DoubleBuffered = True
        Me.Invalidate(rec)
    End Sub

I have used this code as suggested. Not much sure if its correct as i have used the invalidate method first time.

The design of my form is very simple, not many controls in it. The flickering occurs even though the DoubleBuffered is set true.