Access: Custom StatusBar message

Sub StatusBar(message As String)

         Dim RetVal As Variant
         RetVal = SysCmd(4, message)

End Sub

Sub StatusBarReset()

         Dim RetVal As Variant
         RetVal = SysCmd(5)
End Sub