A AsyncCallback of a Delegate opens a non reponding form

See more:

VB

VB10

delegates

Hello!

I'm trying to use a async Delegate to show and populate a form but the form show up and stays Not Responding.

Normally the form opens OK when it's sync with the code.

Example situation:
Before Class:

Public Delegate Sub MyAsyncDelegate()

In primary sub:

Dim del As MyAsyncDelegate
del = New MyAsyncDelegate(AddressOf SubToExecute)
Dim cb As AsyncCallback = New AsyncCallback(AddressOf CodeComplete)
Dim ar As IAsyncResult = del.BeginInvoke(cb, Nothing)

In CodeComplete sub:
Populate with SubToExecute values that I confirm that are ok and show another form that stay not responding.