Sub MySub
Msgbox2Async("CONFIRM YOUR CHOICE?", "SELECTION", "YES", "", "NO", Null, False)
Wait For Msgbox_Result (Result As Int)
If Result = DialogResponse.POSITIVE Then
ProgressDialogShow("WAIT FOR SEARCH...")
'.......
'Long elaboration.....
ProgressDialogHide
Return
End If