Problem med CommonDialog

Jeg har et mærkeligt problem....

Når jeg kører direkte fra VB6.0 er der ingen problemmer med så snart jeg compiler så er der et problem i koden:

Private Sub aaben_Click()
    With CD
        .filename = ""
        .InitDir = App.Path
        .FilterIndex = 0
        .Flags = cdlOFNFileMustExist
        .Filter = "LightProgram Files | *.lpf"
        .ShowOpen '<--- HER
    End With

    If CD.filename <> "" Then
        sikker = MsgBox("Er du sikker på at du vil overskrive de eksisterende programmer?", vbQuestion + vbYesNo, "Sikker?")
        If sikker = vbYes Then
            indlaes (CD.filename)
        End If
    End If
End Sub

Når programmet har vist open-dialogen og man har valgt en fil så kommer der en

Rum-Time error '5':
Invalid procedure call or argument

-fejl...

Jeg har prøvet at udkommentere .ShowOpen og det hjælper... Men jeg skal virkelig bruge den CommonDialog...