1.简单方法在unload事件加 cancel=-1
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = - 1
End Sub
复杂了用API……
最大最小属性里可以设置……
桌面?可以读取注册表……
也可以用shell对象
Private Sub Command1_Click()
Dim WshShell, DKP As String
Set WshShell = CreateObject("WScript.Shell")
DKP = WshShell.SpecialFolders("Desktop")
Set WshShell = Nothing
Print DKP
End Sub
