Anzeige Sanduhr oder Bitte Warten-Meldung wenn der Sub läuft

Habe ich folgende sub läuft auf meinem Formular. Es kann eine Weile dauern, bis die sub ausgeführt, so will ich ändern, den cursor in eine Sanduhr und Anzeige von Bitte Warten-Nachricht, während der code ausgeführt wird. Hier ist meine Vorgehensweise:

Public Sub GoToSheets(sheetName As String)

'This sub is used to open the workbook on the selected sheet.
'This checks to see if Excel workbook is opened, if not it
'opens Excel, the workbook and then the selected sheet. If the workbook is
'opened, it goes to the selected sheet.

'@param sheetName, sheet to be displayed

Try
    'get an existing excel.application object
    xlApp = CType(GetObject(, "Excel.Application"), Application)
Catch ex As Exception
    'no existing excel.application object - create a new one

    xlApp = New Excel.Application

End Try

Dim xlWBName As String = "2011.1004.Compensation Template"
Dim xlBookPath As String = Path.Combine(Directory.GetCurrentDirectory())

xlApp.Visible = True

Try
    'get the opened workbook
    xlBook = xlApp.Workbooks(xlWBName & ".xlsx")
Catch ex As Exception
    'open it
    xlBook = xlApp.Workbooks.Open(xlBookPath & "\" & xlWBName & ".xlsx")
End Try

Try

    xlSheet = CType(CType(xlBook.Sheets("summarySheet"), Excel.Worksheet), Excel.Worksheet)
    Dim strChckRange As String = xlSheet.Range("A2").Value

    If strChckRange Is Nothing Then

        Dim frmClientInfo As New frmClientInformation
        frmClientInfo.ShowDialog()

        closeXLApp()

    Else


        xlSheet = CType(CType(xlBook.Sheets(sheetName), Excel.Worksheet), Excel.Worksheet)


        'close the navigation instance on the welcome page
        frmNavigation.Close()
        'activate requested sheet
        xlSheet.Activate()
        'display as dashboard
        DashboardView()

        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)

        GC.Collect()
        GC.WaitForPendingFinalizers()
        GC.Collect()
        GC.WaitForPendingFinalizers()

        frmWelcomePage.Hide()
        chkForm()

    End If

Catch ex As Exception

End Try

End Sub

Ich habe getan, einige der Forschung auf diesem, aber bisher nichts für Visual Basic.