高手们帮我加一个富文本框的保存更改对话框啊

Question

晕。设置 RichText 的 Modified 属性，以便测试文本框的文本是否被改变了。是则打开一个保存文件对话框，设置 RichText 的 Save 属性和该对话框的 FileName 属性一致。
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If rtfMain.Modified = True Then
            sfdMain.ShowDialog()
            rtfMain.SaveFile(sfdMain.FileName)
        End If
    End Sub