赫赫大名的A*寻路算法(vb.net版本)

在网上看到一篇A*寻路算法的译文 http://data.gameres.com/message.asp?TopicID=25439 按此原理写了以下程序

另外补充:1.此算法不是最短路径算法.
2.在实际应用中肯定还需要优化,以适合具体游戏.
3.(vb.net2005测试通过)