'Declaration
Public Sub SetSolutionKey( _
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.SetSolutionKey(key1, key2, key3, key4)