用什么打开TBT文件？

http://www.vbgood.com/viewthread.php?tid=8360
这里面有你要的答案
比方说我做了一个类似记事本那样的程序,我制定自己的文件格式为.tbt.我已经保存了这样的两个文件aaa.tbt 和bbb.tbt.我想请问一下在vb中如何实现象记事本那样的功能:即通过双击.tbt类型的文件,能启动我的编辑程序,并在工作区执行打开.tbt文件的功能,并显示它的内容.(假设我已经掌握了通过注册表进行文件关联的功能的设置)
在你程序启动的地方
Dim strCmdPara As String
strCmdPara = Command()'取文件名
If Instr(strCmdPara,".tbt") Then '如果扩展名是"tbt"
do something
End If