[Aly El-Haddad]

السلام عليكم،
بمنتهى البساطة:

كود :

''To freeze:
        Dim path As String = "مسار الملف"
        FileOpen(1, path, OpenMode.Random)
        MsgBox("Locked!")

        ''To unfreeze:
        FileClose(New Integer() {1})
        MsgBox("Unlocked!")