高手们帮我看一下以下vb代码哪里有问题

我用vb6.0富文本框写了一个高级记事本，现在需要在每次编辑完成关闭该记事本时，都会跳出个对话框询问是否保存当前更改。当然，我已经设置默认保存格式为.txt了。
下面用的这段代码哪里有问题？（别人用vb.net帮我编的，现在需要改成vb6.0的，txtEdit是文本框名）
Private Sub Form_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If txtEdit.Modified = True Then
sfdMain.ShowDialog()
txtEdit.SaveFile(sfdMain.FileName)
End If
End Sub
要修改一下 ：
在声明中加入：dim HasEdit As boolean
在Form_Load里面加入：hasedit = false
在txtEdit的KeyPress事件中加入：hasedit = true
在所有保存的事件中加入hasedit = false

然后Form_Unload里面：
if HasEdit = True then Cancel=1:调用保存
请给我完整的代码，谢谢。

高手们帮我看一下以下vb代码哪里有问题 VB帮我看一下代码VB VB帮我看一下代码 高手帮看一下下面的VB代码 请高手帮我看一下我的这段VB代码错在哪了啊?谢谢! vb高手在帮我看一下这段代码．谢谢了． vb 的高手帮我看一下 C高手帮我看一下代码 高手帮我看一下c代码 请帮我看一下下面一段vb代码