ComDlg = CreateObject("MSComDlg.CommonDialog") ComDlg.Flags = 0x102 && cdlCFPrinterFonts + cdlCFEffects ComDlg.FontName = "Arial" ComDlg.FontSize = 9 ComDlg.ShowFont() ComDlg.DialogTitle = "Select a file:" ComDlg.Flags = 0x1000 && cdlOFNFileMustExist ComDlg.Filter = "Text (*.txt)|*.txt|Pictures (*.bmp;*.ico)|*.bmp;*.ico" ComDlg.MaxFileSize = 266 ComDlg.ShowOpen() ? ComDlg.FileName ComDlg.ShowColor() _Screen.BackColor = ComDlg.Color>Does anyone know what parameters I need to pass in my AddObject() command in order to add a 'Microsoft Common Dialog Control 6.0' to my form programmatically?