Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim completionSource As New System.Threading.Tasks.TaskCompletionSource(Of Object) Using fas As New frmA AddHandler fas.FormClosed, Sub() completionSource.TrySetResult(Nothing) End Sub fas.Show(Me) Await completionSource.Task End Using End Sub