打开程序后，阅览中打开了“08”画面，但关闭程序后，画面总留在屏幕上。不知如何在关闭程序后，也将先前打开的画面同时关闭，部分代码如下：请高手指点一下，先谢了！
Private Sub form_resize()
    If Frame1.Height > Me.Height Then
        VScroll1.Visible = True
    Else
        VScroll1.Visible = False
    End If
    If Frame1.Width > Me.Width Then
        HScroll1.Visible = True
    Else
        HScroll1.Visible = False
    End If
    HScroll1.Left = 0
    HScroll1.Top = Me.ScaleHeight - HScroll1.Height
    VScroll1.Left = Me.ScaleWidth - VScroll1.Width
    VScroll1.Top = 0
    HScroll1.Width = Me.ScaleWidth
    VScroll1.Height = Me.ScaleHeight
    If VScroll1.Visible = True Then
        If HScroll1.Visible = True Then
           HScroll1.Width = Abs(Me.ScaleWidth - VScroll1.Width)
           VScroll1.Height = Abs(Me.ScaleHeight - HScroll1.Height)

        End If
    End If
    HScroll1.Max = (Frame1.Width - Me.Width) + 3 * VScroll1.Width
    VScroll1.Max = (Frame1.Height - Me.Height) + 3 * HScroll1.Height
    HScroll1.ZOrder
    VScroll1.ZOrder
    Frame1.Left = (Me.ScaleWidth - Frame1.Width) / 2
End Sub



Private Sub Image10_Click()
Load 08a
08a.Show
End Sub

[此贴子已经被作者于2015-12-5 15:28编辑过]

纠正一下：是点右上角关闭钮和下图这个关闭钮不能全 退出；

通常在关闭的事件里用end都会关闭所有窗口的

就是关闭主窗体后，不但在桌面有弹出的小窗，而且 在“进程”里还有，不知如何才能不在“进程”中停留

那就重复一次：在主窗体的unload事件里加end语句，改程序打开的1000个窗体都可以关闭。

下面的是关闭钮，改了几个方案都没通过，应该怎样改才行？
Private Sub Command17_Click()
 Dim Ltem As Long
Dim LpID As Long
Dim hLong     As Long
Dim strWinName     As String
If MsgBox("你要退出《第一讲 波段与数浪》吗?", vbYesNo + vbExclamation, "系统询问") = vbYes Then
   Unload Me
   End
   Else
   Cancel = True
    End If
'bQuestion = True '用这二句也不行
    'Unload Me
End Sub

看你的任务管理器，有二个进程，说明你是启动了多个程序。
那你使用 命令结束进程来关吧。

shell "taskkill /f /im " & app.EXEName & ".exe"

谢谢二位版主的回复

用下面的代码问题全解决了；
Private Sub Form_Unload(Cancel As Integer) '点右上角关闭钮退出全部程序；
If MsgBox("你要退出《第一讲 波段与数浪》吗?", vbQuestion + vbYesNo) = vbYes Then Cancel = 0
Dim intctr As Integer
For intctr = (Forms.Count - 1) To 0 Step -1
Unload Forms(intctr)
Next intctr
End Sub