Private Delegate Function CheckServer() As Boolean
 
        .
        .
        .
 
        Dim dCheckServer As New CheckServer(AddressOf dal.Checkserver)
        Dim iar As IAsyncResult = dCheckServer.BeginInvoke(Nothing, Nothing)
        While Not iar.IsCompleted
            Me.Refresh()
            Application.DoEvents()
        End While