Sub Main ChanNum = DDEInitiate("PROGMAN","PROGMAN") DDEExecute ChanNum,"[CreateGroup(XXX)]" DDETerminateAllEnd Sub