关于不在提醒复选框

Public SET_删除源文件提醒 As Boolean

Public Function 确认删除源文件(FileName As String) As Boolean

Dim 是否删除 As Boolean

If SET_删除源文件提醒 Then           '默认是 FALSE，不再提醒为 TRUE
   是否删除 = True
Else
    Load Form_是否删除源文件提示窗体
    Form_是否删除源文件提示窗体.Label1.Caption = "是否删除源文件：" & FileName & "？"
    Form_是否删除源文件提示窗体.Check1.Value = 0            '默认为提示
    Form_是否删除源文件提示窗体.Show vbModal                '以模式窗口模式显示，将堵塞本过程
   
    If Not Form_是否删除源文件提示窗体.确认删除 Then        '确认删除是该窗体代码中定义的全局变量，相应变成该窗体的属性，读写
        Form_是否删除源文件提示窗体.确认关闭 = True         '该变量用于标记窗体是否可以卸载，该变量为False时，在uNload过程中只隐藏自己，返回TRUE
        Unload Form_是否删除源文件提示窗体                  '卸载该窗体，会触发UNload过程，需要上面那个标志
        是否删除 = False
    Else
        If Form_是否删除源文件提示窗体.Check1.Value = 1 Then    '保存设置
            SET_删除源文件提醒 = True
            'Call 保存设置到设置文件                            '该过程自己完善
        End If
        Form_是否删除源文件提示窗体.确认关闭 = True         '该变量用于标记窗体是否可以卸载，该变量为False时，在uNload过程中只隐藏自己，返回TRUE
        Unload Form_是否删除源文件提示窗体                  '卸载该窗体，会触发UNload过程，需要上面那个标志
        是否删除 = True
    End If
End If

If 是否删除 Then
    If Dir(FileName) <> "" Then
        'Kill FileName
        
        'debug
        MsgBox "Kill " & FileName
    Else
        MsgBox FileName & " 文件不存在"
    End If
End If
End Function

Option Explicit

Public 确认删除 As Boolean
Public 确认关闭 As Boolean

Private Sub Command1_Click()        '删除按钮
确认删除 = True
Me.Hide
End Sub

Private Sub Command2_Click()        '不删除按钮
确认删除 = False
Me.Hide
End Sub

Private Sub Form_Unload(Cancel As Integer)    '直接关闭窗体和卸载窗体

If 确认关闭 Then            '真
                            '不执行任何代码，已关闭自己
Else                        '假
    Me.Hide                 '隐藏自己
    Cancel = False
End If
End Sub