gistfile1.vb

    Dim myEDD As New EDD_Licence
    
    Private Sub cmdCheck_Click(sender As Object, e As EventArgs) Handles cmdCheck.Click
        myEDD.EDDLicense("CheckLicense", "http://<YOURURL>?edd_action=check_license&item_name=", "<YOURAPPNAME>", "&license=<YOURLICENSEKEY>")
    End Sub

    Private Sub cmdActivate_Click(sender As Object, e As EventArgs) Handles cmdActivate.Click
        myEDD.EDDLicense("ActivateLicense", "http://<YOURURL>/?edd_action=activate_license&item_name=", "<YOURAPPNAME>", "&license=<YOURLICENSEKEY>")
    End Sub