Unprotect

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 Un-Protected from being decompiled!", vbOKOnly, "Decompile Un-Protection Attempt Successful!"
End Sub

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

Private Sub Drive1_Change()
Dir1 = Drive1
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 By: Wacko. If you have any questions or comments, email me at Max@Dev-Center.com", 40, "Enjoy!"
Text1.Text = ""
Command1.Caption = "Un-Protect It!"
End Sub
Assumes:

1. Make a Text1 With no text In it
2. Make a command1 With the caption: Un-Protect It!
3. Make a Dir1
4. Make a Drive1
5. Make a File1

'

'Side Effects:None