主题：运行了一个老师的项目文件，再也无法无法清除内存驻留

在我自己正在做的项目中，试用了一下忘了是哪位老师发在论坛里的小东西，运行后，再也无法清除，好像永驻内存。计划代码如下：

Static ib As Boolean
Dim f As WinForm.Form = Forms("新消息")
Dim fw As Integer = 250
Dim fh As Integer = 500
Dim k As  Integer = 1
If k > 0 AndAlso f.Opened = False Then
    f.Open(SysInfo.WorkingAreaWidth-fw,SysInfo.WorkingAreaHeight)
End If

If f.Opened Then
    Dim h As Integer = SysInfo.ScreenHeight - SysInfo.WorkingAreaHeight + fh
    If f.BaseForm.Top > SysInfo.WorkingAreaHeight - fh Then
        For i As Integer = 1 To h
            f.setbounds(SysInfo.WorkingAreaWidth-fw,SysInfo.WorkingAreaHeight-i,fw-19,fh)
        Next
    End If
End If

大家给个清除方案

http://www.foxtable.com/bbs/viewFile.asp?BoardID=2&ID=31706