VB code to check screen resolution and change it

My vb app runs best at a screen resolution greater than or equal to 1024 x 768. I'm looking for a few lines of commented VB6 code that will check the current user's screen resolution, and if < 1024 x 768 will put up a window that says that the program works best at 1024 x 768 or higher resolution. The user should then be able to pick a screen resolution choice: Continue as is, with current resolution. Change resolution to recommended 1280 x 1024 Change resolution to minimum suggested of 1024 x 768 They pick their choice and their screen resolution changes automatically. ## Deliverables Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. Complete copyrights to all work purchased. ## Platform win 98, xp, nt, 2000, etc.