[Tasos]

Καλησπέρα Δημήτρη!

Πρέπει να δουλέψει η μεγέθυνση τουλάχιστον σε Windows 7. Δεν μπόρεσα να το δοκιμάσω σε XP.
Ωστόσο δοκίμασε να αυξήσεις το χρόνο στο χρονόμετρο της φόρμας από 1000 σε κάτι μεγαλύτερο (Me.TimerInterval = 1500).

Δεν πρόκειται για ένα απλό παράθυρο αλλά για παράθυρο διαλόγου που όταν είναι ανοιχτό διακόπτεται η εκτέλεση του κώδικα με αποτέλεσμα να μην μπορεί να εκτελεστεί ο κώδικας εκείνος που θα βρει και θα μεγιστοποιήσει το παράθυρο αυτό.


Όσο για τη διαδρομή φακέλου δοκίμασε:

Private Function GetFilePath() As String
    Dim strFile As String, strInitialDir As String
    strInitialDir = Nz(Me.FolderName, "")
    If Trim(strInitialDir) = "" Then strInitialDir = CurDir
    WizHook.Key = 51488399
    Me.TimerInterval = 1500
    WizHook.GetFileName 0, "", strDlgTitle, strOpenTitle, strFile, strInitialDir, strFilter, 0, 0, 64, True
    GetFilePath = strFile
End Function

Καλή συνέχεια!

Τάσος