Most people reading this thread don't use VB6 (anymore), so I doubt anyone here can help you with this. Not to mention that you don't listen to any advice you get, unless people tell you what you want to hear.

For years people have been telling you that you should stop using "On Error Resume Next", yet you keep using it almost everywhere. Every time you don't know how to fix an error, you simply put "On Error Resume Next" at the top of the event in order to hide it, instead of fixing the error or adding proper error handling.

Most controls don't have a proper name. Combo31_Click and Check18.Enabled mean nothing to anyone.

In your code you read/write/copy/delete many files, but never check if they exist or if the user has the correct permission. You have been told many times that you should use the FreeFile function instead of hardcoding the file number (#1). All your paths, for example "c:\temp\project1\director\menu1.dat", are hardcoded as well, which no doubtly will lead to problems sooner or later on other computers.

Microsoft is not going to take you seriously when you give this code to them. It's obvious that you are not learning anything, because you keep making the same mistakes over and over again. This means that other people will not learn anything from your code either. In the end you will be the only one using this code.

Sorry if I sound a bit harsh, but I know you won't listen anyway, unless I tell you that you are doing an excellent job.