虽然在程序中使用了END语句,但为什么程序还在进程中。非要手工中止。有什么更强的,强制退出程序的语句啊

解决方案 »

  1.   


    Private Sub Command1_Click()
        Unload Form1
    End Sub
      

  2.   

    试一试Private Sub cmdExit_Click()
      For i = 0 To Forms.Count - 1
        Unload Forms(i)
    Set Forms(i)=Nothing
    End Sub
      

  3.   

    Private Sub mnu_back_frmselect_Click()
    Dim myForm As Form
    For Each myForm In Forms
        Unload myForm
    Next
    end
    End Sub
      

  4.   

    需要手动释放对象 你又不是TERMINATE PROCESSID