'Create a new project
'paste the following code into (general)(decarations)
'
'Set Deafault Dir to App Execute Dir
'
Private Sub Form_Click()

    ' Change the default directory to the application's directory
       
    Form1.Cls: FontSize = 10: CurrentX = 10: CurrentY = 10: Print "this is the default path": Print CurDir()
    ChDir App.Path
    ChDrive App.Path
    Print vbCrLf & "this is the application's execution path": Print "now default path too": Print CurDir()

End Sub

Private Sub Form_GotFocus()
   
   Form1.Cls: FontSize = 10: Print "Click on the Form To Start"
   
End Sub