Exe running smoothly in XP, but not in WIn 2000

I am new to VB 6 and working on a project. One of the exe file is running smoothly in win xp, but give the following message in Win 2000 :

"Component 'COMDLG32.OCX' or one of its dependencies are not correctly resigtered. Th file is missing or invalid".


The Code for the exe file is :


Const Filename = "GEDIE"

Private Sub Form_Load()
RichTextBox1.LoadFile Filename, rtfText
End Sub

Private Sub Save_Click()
On Error GoTo cancel
ComDia.Filter = "Text Files|*.txt"
ComDia.ShowSave
RichTextBox1.SaveFile ComDia.Filename, rtfText
Exit Sub
cancel:
Exit Sub
End Sub

Private Sub Print_Click()
On Error GoTo cancel
ComDia.ShowPrinter
RichTextBox1.SelPrint Printer.hDC
cancel:
Exit Sub
End Sub

Private Sub Exit_Click()
End
End Sub


I need a suggestion for modifying this code to make it working for all Windows OS. Thanks and regards.

[QUOTE=abc_sk2002]I am new to VB 6 and working on a project. One of the exe file is running smoothly in win xp, but give the following message in Win 2000 :

"Component 'COMDLG32.OCX' or one of its dependencies are not correctly resigtered. Th file is missing or invalid".

[QUOTE]

I'll take a stab...

Have you tried making an actual deployment file? In Add-In select "Visual Basic 6 Application Wizard" (may have to add it, if its not available) and create an actual install program and run it on the win2000 machine. It should register everything that needs registereing.

Also under Project ->Project Properties -> Compile, maybe set Compile to Native Code instead of P-Code, I had problems getting programs to work under Win98 with P-Code, even with deployment package. Not for sure what it is, but it definatly affected me.