NoDecompile

Private Sub Command1_Click()
A = "."
Open Text1.Text For Binary As #1
Seek #1, 25
Put #1, , A
Close #1
MsgBox "The File ''" & Text1 & _
"'' Was Protected from being decompiled!", _
vbOKOnly, "Decompile Protection Attempt Successful!"
End Sub

Private Sub Dir1_Change()
File1 = Dir1
Text1 = Drive1 & "/" & Dir1
End Sub

Private Sub Drive1_Change()
Drive1 = Dir1
End Sub

Private Sub File1_Click()
Text1 = Dir1 & "\" & File1
End Sub

Private Sub File1_DblClick()
Command1_Click
End Sub

Private Sub Form_Load()
MsgBox "Enjoy the Free source Code. " & _
"This was FULLY Provided ßy: MiKE32. " & _
"If you have any questions or comments, " & _
"email me at cindy.joyce@worldnet.att.net", _
40, "Enjoy!"
Text1.Text = ""
Command1.Caption = "Protect It!"
End Sub
Assumes:
1.) Make a TextBox and name it "Text1"
2.) Make a CommandButton and name it "Command1"
With the caption "Protect It!"
3.) Make a DirListBox and name it "Dir1"
4.) Make a DriveListBox and name it "Drive1"
5.) Make a FileListBox and name it "File1"

Please make sure that Command1's caption says "Protect It!"
and Text1's caption is ""(Bank)