Public Sub Set_Prompt(ByVal Use_Prompt As String)

        Me.Prompt_La.Text = Use_Prompt
End Sub

Imports System
Imports System.Threading

Module WaitLib

    Dim WaitMsg_Win As WaitMsg = Nothing
    Dim Msg_Thread As Thread
    Dim Thread_Running As Boolean = False
    Dim Use_Msg As String

    Private Sub Show_WaitMsg()

        WaitMsg_Win = New WaitMsg
        WaitMsg_Win.Set_Prompt(Use_Msg)
        WaitMsg_Win.ShowDialog()
        While (True)
            Thread.Sleep(100)
        End While
    End Sub

    Public Sub Display_Wait_Message(ByVal Wait_Msg As String)

        Use_Msg = Wait_Msg

        If (Not Thread_Running) Then
            Try
                Msg_Thread = New Thread(AddressOf Show_WaitMsg)
                Msg_Thread.IsBackground = True
                Msg_Thread.Priority = ThreadPriority.BelowNormal
                Msg_Thread.Name = "WaitMsg Thread"
                Msg_Thread.Start()
                Thread_Running = True
            Catch ex As Exception
            End Try
        Else
            '
            ' Need to call WaitMsg_Win.Set_Prompt(Use_Msg)
            '
        End If
    End Sub

    Public Sub End_Wait_Message()

        If (Thread_Running) Then
            Try
                Msg_Thread.Abort()
                Msg_Thread.Join()
                WaitMsg_Win.Close()
                WaitMsg_Win = Nothing
                Thread_Running = False
            Catch Err_Ex As Exception
                Call Error_Proc(Err_Ex)
            End Try
        End If
    End Sub

End Module