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