The MessageDlgM function. Improve your application=B4s visual. The MessageDlgM function make = message dialog boxes=20 with animated icons. HOW TO INSTALL UNIT: Delphi 1.0 ---------- Unpack the files below to Delphi=B4s LIB directory (normaly the path is = \DELPHI\LIB): - MESMOV16.DCU - MESMOV16.RES - CIANIMAT.PAS Delphi 2.0 ---------- Unpack the files below to Delphi=B4s LIB directory (normaly the path is=20 \Program Files\Borland\Delphi 2.0\Lib): - MESMOV32.DCU=20 - MESMOV32.RES - CIANIMAT.PAS HOW TO USE MESSAGEDLGM FUNCTION: - Add Mesmov (or Mesmov32) in uses clause - Where you use MessageDlg, change by MessageDlgM keeping the original = parameters Example: uses ......, Mesmov; implementation . .=20 . Ok :=3D MessageDlgM('Your Message. Do you want continue ?', = mtConfirmation, [mbYes, mbNo], 0); . . . end. If you have suggestions, doubts or need to know the source code, send me = a E-mail.=20 The address is .