On Error GoTo WriteError If My.Settings.IsFirstRun Then Dim frm As New frmActivation frm.ShowDialog() My.Settings.IsFirstRun = False Else Dim sm As New SecurityManager If sm.CheckKey(frmActivation.PasswordDecrypt(tActivationKey, tEncryptionKey)) Then Else Dim frm As New frmActivation frm.ShowDialog() End If End If con.Open() ..
On Error GoTo
WriteError
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)