Public m as m.Command 

Public c as m.Command

' First object from Cache' ****
Set ch = CreateObject("m.Command")
ch.Server = "192.168.1.102" 
ch.Port =  2222 
ch.Login
ch.Xecute ("ZN ""EXPLOATARE""")

' Second object from MSM ****
Set m = CreateObject("m.Command")
m.Server = "192.168.1.21" 
m.Port =  1666 
m.UCI = "EXL"
m.Volgrp = "APU"
m.Login

Private Sub Command1_Click()
Dim Rec As String, Ret As String, Er As String
Rec = "This is namespase Exploatare..."
m.Do "Test^cache", Rec, Ret, Er
MsgBox Ret
End Sub

Private Sub Command2_Click()
Dim Rec As String, Ret As String, Er As String
Rec = "This is UCI Salariu..."
m.Do "Test^msm", Rec, Ret, Er
MsgBox Ret
End Sub