Anyone can help me to modify the code

[yxq]

Hello,
I found the code to lock and brush Windows desktop, and i have modified some
code for disabling brush the Main Form(Me), but i can not see the changes of
the controls on main form(Me) real time, the Me form has been frozen. How to
keep to see the change of the main form(Me) real time?

Thank you

///////////////////////////////////////////////////////////
Private Sub LockSystem()

Dim owner As Control = TryCast(Me.Owner, Control)

Dim screen As Screen

If owner Is Nothing Then
screen = Windows.Forms.Screen.PrimaryScreen
Else
screen = Windows.Forms.Screen.FromControl(owner)
End If

Dim background As Bitmap = New Bitmap(screen.Bounds.Width,
screen.Bounds.Height)
Using g As Graphics = Graphics.FromImage(background)

g.CopyFromScreen(0, 0, 0, 0, screen.Bounds.Size)
Using br As Brush = New SolidBrush(Color.FromArgb(192,
Color.Black))

Dim FillRegion As New Region(screen.Bounds)
FillRegion.Xor(Me.Bounds)
g.FillRegion(br, FillRegion)
End Using

If owner IsNot Nothing Then
Dim form As Form = owner.FindForm()
g.CopyFromScreen(form.Location, form.Location, form.Size)
Using br As Brush = New SolidBrush(Color.FromArgb(128,
Color.Black))
g.FillRectangle(br, New Rectangle(form.Location,
form.Size))
End Using
End If

Dim originalThread As IntPtr
Dim originalInput As IntPtr
Dim newDesktop As IntPtr

originalThread =
GetThreadDesktop(Thread.CurrentThread.ManagedThrea dId)
originalInput = OpenInputDesktop(0, False,
DESKTOP_SWITCHDESKTOP)

newDesktop = CreateDesktop("Desktop" &
Guid.NewGuid().ToString(), Nothing, Nothing, 0, GENERIC_ALL, Nothing)
SetThreadDesktop(newDesktop)
SwitchDesktop(newDesktop)

newThread = New Thread(AddressOf NewThreadMethod)
newThread.Start(New VDialogLockSystemParameters(newDesktop,
background))
newThread.Join()

SwitchDesktop(originalInput)
SetThreadDesktop(originalThread)

CloseDesktop(newDesktop)

End Using
End Sub

Private Sub NewThreadMethod(ByVal params As Object)
Dim v As VDialogLockSystemParameters = DirectCast(params,
VDialogLockSystemParameters)
SetThreadDesktop(v.NewDesktop)
Using f As Form = New BackgroundForm(v.Background)
f.Show()
ShowInternal(f)
f.BackgroundImage = Nothing
Application.DoEvents()
Thread.Sleep(250)
End Using
End Sub

Private Sub ShowInternal(ByVal Owner As IWin32Window)
SetStartPosition(Me, Owner)

'Add some codes...............

End Sub

Private Shared Sub SetStartPosition(ByVal f As Form, ByVal o As
IWin32Window)
If o Is Nothing Then
f.StartPosition = FormStartPosition.CenterScreen
Else
f.StartPosition = FormStartPosition.CenterParent
End If
End Sub