anything AT ALL?

[GIAKEN]

Here's some more stuff:

Code:

Public Function FileExist(ByVal FileName As String, Optional RAW As Boolean = False) As Boolean
    FileExist = True
    If Not RAW Then
        If LenB(Dir$(App.Path & "\" & FileName)) = 0 Then FileExist = False
    Else
        If LenB(Dir$(FileName)) = 0 Then FileExist = False
    End If
End Function

Code:

Function IsTryingToMove() As Boolean
    If DirUp Or DirDown Or DirLeft Or DirRight Then IsTryingToMove = True
End Function

Also I read somewhere it wasn't good to use commas when dim'ing like this:

Code:

Dim n As Long, i As Long