'Declaration
Public Sub SetSolutionKey( _
ByVal As Long, _
ByVal As Long, _
ByVal As Long, _
ByVal As Long _
)
'Usage
Dim instance As Licensing
Dim code1 As Long
Dim code2 As Long
Dim code3 As Long
Dim code4 As Long
instance.SetSolutionKey(code1, code2, code3, code4)