[飛行船大大]

作者: sob790717b

INET 無法使用
我是使用VB6普及版的
跟這問題有關聯嗎

mini大已 說明的很清楚.

既然你在主選單 要想直接用結束
那你form10 中改成以下2行 (這樣即可)

Private Sub Timer1_Timer()
   Unload Me
   Form1.Show
End Sub

其實在實際設計中我幾乎沒使用end,因系統設計大的時候 很容易發生bug
下面這個送你ㄅ, 改用CloseAllForms Me

Public Sub CloseAllForms(frmCaller As Form)
   ' 程式功能 ： 關應用程式中　所有的forms . 目前的form最後才關
   ' 傳入參數 ： frmCaller - 最後才關的form名稱
   ' 傳出     ： 無
   ' 使用範例 ：
  '         CloseAllForms Me
   Dim Frm As Form
   
   On Error GoTo PROC_ERR
   For Each Frm In Forms
      If Not Frm Is frmCaller Then
         Unload Frm
      End If
   Next
   Unload frmCaller
   
   Exit Sub
PROC_ERR:
   MsgBox "Error: " & Err.Number & ". " & Err.description, , "CloseAllForms"
End Sub

-
ps:普及版功能有限制. 上網找專業版的 bt種子ㄅ !