Running Procedure Asynchronously

Sub ShowSearchForm()
Dim x As New frmSearching
x.ShowDialog()
End Sub

MAIN FORM

Dim t As System.Threading.Thread
t = New System.Threading.Thread(AddressOf [ShowSearchForm])
t.Start()