TempMsg ( Tempory Message )

Private Function TempMsg(tempMessage As String, timeInSecs As Single, whichLabel As Object)
        '  ========================
        '  Author: CookWare Ok
        '  ========================
        '  Function may be Public or Private as needed. Remember if used in a module use
        '  WhichForm.WhichLabel format to pass parameter to the function.
        '  EXAMPLE:   Call TempMsg(myMessage, myTime, myForm.myLabel)
        '  ========================
        '  You Must included timer and timer code shown below
        '  ========================
        '  Private Sub timMsg_Timer()
        '  timMsg.Interval = 0
        '  timMsg.Enabled = False
        '  bMsgOn = False
        '  End Sub
        '  ========================
        '  You must also Dim bMsgOn As Boolean (either Public or Private as needed)
        '  =======================
        Dim myMsg As String
        myMsg = whichLabel   '  Stores currently displayed message
        bMsgOn = True
        If timeInSecs > 10 Then   '  Limits time interval to 10 seconds ( May be changed as you see fit )
                timeInSecs = 10
        End If
        timMsg.Interval = timeInSecs * 1000   '  converts timeInSecs to milliseconds
        timMsg.Enabled = True                          '  Starts timer
        Do Until bMsgOn = False                       '  Do tempMessage until time is elapsed
                DoEvents
                whichLabel = tempMessage
        Loop
        whichLabel = myMsg   '  Restores original message
End Function