取得智能设备程序主目录（Compact Framework）

在Embedded Visual Basic中，程序执行的当前目录可以通过App.Path属性获得。可是.Net CF不再支持了。（遗憾，不过更令人遗憾的是form.scale也不被支持了）
.Net CF中只能靠Assembly获得。
Code:

     Public   Function  GetPath()  As   String
         Dim  fullAppName  As   String   =  [Assembly].GetExecutingAssembly().GetName().CodeBase
         Dim  fullAppPath  As   String   =  Path.GetDirectoryName(fullAppName)
        GetPath  =  fullAppPath
     End Function