Private Sub activateLicenseBtn_Click(ByVal sender As Object, ByVal e As EventArgs)
LexActivator.SetLicenseKey(productKeyBox.Text)
LexActivator.SetActivationMetadata("key1", "value1")
status = LexActivator.ActivateLicense()
If status = LexStatusCodes.LA_OK OrElse status = LexStatusCodes.LA_EXPIRED OrElse status = LexStatusCodes.LA_SUSPENDED Then
Me.statusLabel.Text = "Activation Successful :" & status.ToString()
Me.activateBtn.Text = "Deactivate"
Me.activateTrialBtn.Enabled = False
Me.statusLabel.Text = "Error activating the license: " & status.ToString()
Catch ex As LexActivatorException
Me.statusLabel.Text = "Error code: " & ex.Code.ToString() & " Error message: " + ex.Message