Private _canceled As Boolean Public Sub WaitLoad() While Not _canceled Thread.Sleep(1000) End While End Sub Public Sub CancelWaitLoad() _canceled = True Me.Show() End Sub
Private _event1Raised As Boolean = False Private Sub Event1 (sender As Object, e As EventArgs) _event1Raised = True End Sub Private Sub Event2 (sender As Object, e As EventArgs) If _event1Raised Then ' Event1 発生済み Else ' Event1 未発生 End If End Sub