Private Sub Command1_Click()
Dim result As Long

    result = GetAttr(txtFile.Text)
    lblResult.Caption = "&&H" & Hex$(result)

    If result And vbNormal Then
        chkNormal.Value = vbChecked
    Else
        chkNormal.Value = vbUnchecked
    End If
    If result And vbReadOnly Then
        chkReadOnly.Value = vbChecked
    Else
        chkReadOnly.Value = vbUnchecked
    End If
    If result And vbHidden Then
        chkHidden.Value = vbChecked
    Else
        chkHidden.Value = vbUnchecked
    End If
    If result And vbSystem Then
        chkSystem.Value = vbChecked
    Else
        chkSystem.Value = vbUnchecked
    End If
    If result And vbDirectory Then
        chkDirectory.Value = vbChecked
    Else
        chkDirectory.Value = vbUnchecked
    End If
    If result And vbArchive Then
        chkArchive.Value = vbChecked
    Else
        chkArchive.Value = vbUnchecked
    End If
End Sub