This is a sample Code I have Used In my Notepad Application...
If str = "226t6672x28590mz" Then
ContactsToolStripMenuItem.Enabled = True
AnimateTheClosingToolStripMenuItem.Enabled = True
AnimateMinToolStripMenuItem.Enabled = True
CreditsToolStripMenuItem.Enabled = True
ColourToolStripMenuItem.Enabled = True
SetMarginToolStripMenuItem.Enabled = True
BulletedToolStripMenuItem.Enabled = True
RegisterToolStripMenuItem.Enabled = False
Me.Text = "Writting Pad-(Registered)"
save = 1
load_settings()
Else
MsgBox("Registration Data Deleted", vbOK + vbInformation, "Register")
Throw p1
End If
Try Devloping Yourself It's Quite Simple I don't Think It's a Tidy Task.:cool::cool::cool: