VB - MsTest - Teste Events

   <TestMethod()>
        Public Sub GetStateTest()

            Dim transporter = New MockTransporter
            Dim target = GetTarget(transporter)

            Dim wait = New ManualResetEvent(False)
            AddHandler target.PropertyChanged, Sub(sender As Object, e As PropertyChangedEventArgs)
                                                   If e.PropertyName = BlaBla.PropertyNameBlub Then
                                                       wait.Set()
                                                   End If
                                               End Sub

            target.Connect()
            transporter.DoSomethingThatRaisesEvent

            Assert.IsTrue(wait.WaitOne(2000), "Timeout")

        End Sub