programming again

added the path variable


        Dim strAppPath As String
        strAppPath = System.Reflection.Assembly.GetExecutingAssembly.Location()
        BASEDIR = Left(strAppPath, InStrRev(strAppPath, "\"))


now working on hiding the system.console (the dos windows that pop up when program execute