Private Sub cmdOK_Click()
    Dim nAttr As Integer
    nAttr = 0 '属性变量初始化
    '根据复选框的值，来决定文件或者文件夹的属性
    If chkNormal.Value = 1 Then nAttr = nAttr + vbNormal
    If chkReadOnly.Value = 1 Then nAttr = nAttr + vbReadOnly
    If chkHidden.Value = 1 Then nAttr = nAttr + vbHidden
    If chkSystem.Value = 1 Then nAttr = nAttr + vbSystem
    If chkArchive.Value = 1 Then nAttr = nAttr + vbArchive
   
    '设置文件或者文件夹的属性
    mFileDir.Attributes = nAttr

    Unload frmAttribute
End Sub
我想问下 nAttr=0 有身们作用，还有属性设置时，例如：
If chkNormal.Value = 1 Then nAttr = nAttr（这个nAttr不是0吗，有什么作用） + vbNormal

明白，谢谢啊