vb 清理内存

Private WithEvents WebBrowser1 As WebBrowser

'按一下创建，再按一下移除

Private Sub Command1_Click()

If WebBrowser1 Is Nothing Then

Set WebBrowser1 = Me.Controls.Add("Shell.Explorer.2", "WebBrowser1")

WebBrowser1.Visible = True

WebBrowser1.Navigate "http://www.qxw8.com/"

Else

Me.Controls.Remove WebBrowser1

Set WebBrowser1 = Nothing

End If

End Sub

WebBrowser，，动态装入，用完再动态卸掉，释放内存，避免长时间运行，卡死状态。