Imports SoftActivate.Licensing

Module Module1
    Sub Main()
        ' Initialize license manager
        Dim manager As New LicenseManager()
        
        ' Validate license key
        Dim result = manager.ValidateLicense(licenseKey)
        
        If result.IsValid Then
            ' Get license properties
            Dim customerName As String = result.GetField("CustomerName")
            Dim expirationDate As DateTime = result.ExpirationDate
            
            ' Check feature flags
            If result.IsFeatureEnabled("ProEdition") Then
                EnableProFeatures()
            End If
        Else
            ' Show license dialog
            manager.ShowLicenseDialog()
        End If
    End Sub
End Module