DispMsg Display Message wwwwwwwwww wwwwwwwwwwp wxxxxxxxwwp xxxxxxxxxwp xxxxxxxxxwp wxxxxxxxxwp wwwwwwwwwwp wwwwwwwwww Form1//Display Message (c) 1994 Rufan Redi Productions5_ Command3 &What's the time ? HScroll1 This is a slider bar Command2 &See the Author ! %For an introduction to the author ... Picture1 wwwwwww wwwxx wwwwww wwwwx wwwwx wwwwwwx wwwwx wwwwx wxxwwwwx wwwwww wwwww wwww7w .%This is a little bit of a space man ! Combo1 Drop me down ! &Drop this down to see a list of things Command1 &Hello Push here to say Hello Option1 Option Two #Clich here to set the second option Option1 Option One ,Click on this line to chose the first option Check1 A Check Box Click here to set the check-box E&xit This button exits the demo form MessageTimer Label1 Slider value Shows the slider bar value Message @ Form_Load Form_Activate MessageTimer Enabled Form_Deactivate Form_Resize. GetClientRect KaTiex hWndf lpRect Height- ScreenP TwipsPerPixelY Message List1 Panel3D1B WidthJ DispMsg Exit_Click MessageTimer_Timer DisplayMessage TwipsPerPixelX Command1_Click mgbox Combo1 Picture1_Click} Command2_Click Jeremy Caption Check1_Click Check1V Value Option1_Click Index HScroll1_Change Label1 HScroll1 Label1_Click Label2_Click Command3_Click Command3 Check1_Click Example of a quick information message I've just been set I've just been cleared Command1_Click Hello ! Welcome to the DisplayMessage Demo. Please review the ReadMe procedure in DispMsg.Bas Display Message Command2_Click As you can see - it is possible to manually change the message as well Double click to close this picture... Command3_Click This button was last clicked at Exit_Click Form_Activate Form_Deactivate Form_Load Item One Another Item This is Item Three Four Items is enough ! Form_Resize Find the size of the Windows Client arear Set the width of the message to equal the window And make sure that the box is always the same distance from the bottomt HScroll1_Change Slider: This demonstrates dynamically changing the slider value Slider value set to MessageTimer_Timer Option1_Click A quick information message Option has been set