这样写代码
If ProjectFile.EndsWith("foxdb") Then msgbox("开发状态")Else msgbox("发布状态") basemainform.visible=FalseEnd If