If think you could use the TextOut API to print a message on screen.

Code:
Private Declare Function TextOut Lib "gdi32.dll" Alias "TextOutA" _
 (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

retval = TextOut(frmMessage.Picture1.hdc, 0, 0, strMessage, MessLen)
Any use?