Waiting for call to complete and then redialing?

I'm just a noob so there's probably a better method but i created a class. I have a few global vars to track different events.

Imports Way2call
Imports Way2call.Driver
Imports System.Threading
Public Class Cls_Events
    Public Sub WaitForConnection(ByVal DurationSec As Integer, ByVal DeviceID As Integer)
        MyCallDropped = False   'clear dropped call flag
        MyCallBusy = False      'clear number busy flag
        MyCallErrored = False   'clear call error flag
        MyCallConnected = False 'clear call connected flag

        Static start_time As DateTime = Now
        Dim elapsed_time As TimeSpan

        Do
            If MyCallConnected = True Then Exit Do 'exit loop if OnConnected event is fired
            If MyCallBusy = True Then Exit Do 'exit loop if the line is busy
            If MyCallDropped = True Then Exit Do 'exit loop if the call was dropped
            elapsed_time = Now.Subtract(start_time)
           
            ' operation timed out exit the loop
            If elapsed_time.TotalSeconds >= DurationSec Then Exit Do
            Application.DoEvents()
        Loop
    End Sub
End Class



then i did something like:

w2cErr = w2cDrv.Device(0).Call("w5558675309", True, True)
Dim CallEvent As New Cls_Events
CallEvent.WaitForConnection(40, 0)