太怪了!不信你试试.该如何处理

太怪了!!不信你试试.
用VB   做好的程序编译成可执行程序,在程序运行过程中,我发现一个怪事:就是这个正在运行中的程序竟然可以被改名.!!!怎么会这样呀!!!???,能否想个办法,拒绝运行中的程序被改名??谢谢   ...

[解决办法]
Private Sub Form_Load()
Dim s As String
s = App.Path & "\ " & App.EXEName & ".exe "
Open s For Binary Lock Read Write As #1
End Sub
这样就不能改了