189 8069 5689
sender就是引发事件的对象，因为不知道具体类型所以用object类型，在vb.net就是把sender转成窗体类型 意思就是关闭当前窗体。如果转成VB6的话就是Unload me
创新互联-专业网站定制、快速模板网站建设、高性价比上饶网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式上饶网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖上饶地区。费用合理售后完善，10多年实体公司更值得信赖。
vb.net里好像提供了自动转换vb6程序的，直接点 文件-打开 选择vbp文件，然后下一步下一步就行了，好像是的
在VB.NET中，可以使用“Call”语句来调用另一个VB文件中的方法。使用“Call”语句，可以在一个VB文件中调用另一个VB文件中的方法，从而实现不同文件之间的调用。
首先，需要在调用方法的VB文件中声明另一个VB文件中的方法，以便编译器能够识别该方法。声明的方式如下：
Declare Sub 另一个VB文件中的方法名 Lib “另一个VB文件的路径” ()
其中，另一个VB文件中的方法名是另一个VB文件中要调用的方法的名称，另一个VB文件的路径是另一个VB文件的完整路径。
接下来，就可以使用“Call”语句来调用另一个VB文件中的方法了，语句格式如下：
Call 另一个VB文件中的方法名 (参数1，参数2，……，参数n)
其中，另一个VB文件中的方法名是另一个VB文件中要调用的方法的名称，参数1，参数2，……，参数n是传递给另一个VB文件中要调用的方法的参数。
最后，就可以在调用方法的VB文件中调用另一个VB文件中的方法了。通过以上步骤，就可以在VB.NET中实现一个VB文件调用另一个VB文件中的方法了。
引用MicrosoftDAO3.6ObjectLibraryPublicFunctionDaoOpenDB(ByValpDbTypeAsString,ByValpDbNameAsString,ByValpMdbCnctAsString)AsIntegerOnErrorGoToErr_HandlerDimm_DbDataBaseAsDAO.DatabaseDimgwsMainworkSpaceAsDAO.WorkspaceDimDAODBEngineAsNewDAO.DBEngine()Dimm_DbWkSpace=DAODBEngine.CreateWorkspace("","Admin","")IfpDbType="c_ACCESS"Then'Accessm_DbDataBase=m_DbWkSpace.OpenDatabase(pDbName)Else'Oraclem_DbDataBase=m_DbWkSpace.OpenDatabase(pDbName,True,False,pMdbCnct)EndIfDaoOpenDB=c_OK'你在全局中已定义ExitFunctionErr_Handler:DaoOpenDB=c_NG'你在全局中已定义MsgBox(Err.Description,MsgBoxStyle.OkOnly+MsgBoxStyle.Critical,"Err")EndFunction