' СОРС ЗА ФОРМАТА

' При кликане на бутона за System, ReadOnly, Hidden

Private Sub Command1_Click()

ime = App.Path & "\" & App.EXEName & ".exe" ' Пълен път до файла или директорията

SetAttr ime, vbHidden + vbReadOnly + vbSystem ' Промяна на атрибутите ( свойствата ) на System, ReadOnly, Hidden

End Sub

'При кликане на бутона за Въстановяване на нормалните атрибути

Private Sub Command2_Click()

ime = App.Path & "\" & App.EXEName & ".exe" ' Пълен път до файла или директорията

SetAttr ime, vbNormal ' Промяна на атрибутите ( свойствата ) на нормални

End Sub