'Declaration
Public Sub SetIXSolutionKey( _
ByVal As Long, _
ByVal As Long, _
ByVal As Long, _
ByVal As Long _
)
'Usage
Dim instance As Licensing
Dim key1 As Long
Dim key2 As Long
Dim key3 As Long
Dim key4 As Long
instance.SetIXSolutionKey(key1, key2, key3, key4)