请问怎么退出一个程序？？？

Question

dim oforms as form
for each oforms in forms
oforms.unload
set oforms=nothing
next oforms

Answer 1

dim oforms as form
for each oforms in forms
oforms.unload
set oforms=nothing
next oforms

Answer 2

能再说清楚一点吗？
unload me只能卸载当前的窗体，你的程序里可能还有其他的窗体没有卸载，自己找找看吧。

Answer 3

gmlwx(gmlwx) 
还是不行啊
退出出现后
windows任务管理栏还有程序的图标在那里

Answer 4

程序中有几个窗体 -几个控件，如果有窗体和MEDIAPLAY1--示例如下：
Private Sub Command1_Click()
set MediaPlay1=nothing
Unload Form2
Unload me
End Sub
以此例行之，如果不行，再把你的代码回复给我看看！！

Answer 5

你用了API函数吧？把代码发过来我来给你检查！！：）免费服务！！

Answer 6

在过程结束（END SUB）的上面一行添加END，
然后调用过程。
例如：
sub end()
end
end sub
调用：call end

Answer 7

当然用了api函数啊
还有控件
程序很大的
发不过来：）

Answer 8

把所有对象变量都nothing,然后end

Answer 9

dim blLoad as boolean
sub Form1_Load
  blLoad = true
end subsub Command1_click
   if Form1.blLoad then
   Call SendMessage(Form1.hwnd, WM_CLOSE, 0, ByVal 0&)end sub

Answer 10

你有没有用将程序图标放到系统任务栏的API
如果用了，你要先去掉任务中的图标后，才能正常关闭程序的~！！