AAHHHHH, help in VB6

[New to VB 6]

I need some one that is willing to go through my code and help me clean it up (e.g. Remove any unnecessary code, or simplify code when able.)

[DiGiTaIErRoR]

So post the code!

[New to VB 6]

Here ya go.

[Jmacp]

Had a quick look one thing i noticed was you have,

Public Function CheckPath(Path As String) As String
 
    Path = Trim$(Path)
    If Right$(Path, 1) = "\" Then
        CheckPath = Path
     Else
        CheckPath = Path & "\"
    End If
 
End Function

Private Sub Form_Load()
 
    Set lnk = New cShellLinkA
    sAppPath = App.Path
    ' in case it's not a root directory
    If Right$(sAppPath, 1) <> "\" Then
        sAppPath = sAppPath & "\"
    End If
    Call ListFiles(CheckPath(App.Path) & "Skin\")
 
End Sub

and,

Private Function NormalizePath(sFolder As String) As String
 
    sFolder = Trim$(sFolder)
    If Right$(sFolder, 1) <> "\" Then
        sFolder = sFolder & "\"
    End If
    NormalizePath = sFolder
 
End Function

Only need one function there.