Sub ButtonClick(ctrl as String)
 sUser = "LOGO" ' Bu parametreden gelecek
 sPW = "" ' Bu da parametreden gelecek

 oUnityApp = OleObject("UnityObjects.UnityApplication")
 oUnityApp.Connect
 if Not(oUnityApp = Null) then
 Warn("Connected successfully") ' Başarıyla bağlanıyor.
 end if
 
 bErr = oUnityApp.UserLogin(sUser,sPW)
 Warn(bErr) ' True dönüyor
 
 if bErr then
 warn("User Ok!")
 end if
 
 iFirmNr = 5 
 bErr = oUnityApp.CompanyLogin(iFirmNr)
 
 'bErr = oUnityApp.Login(sUser,sPW,iFirmNr)
 Warn(bErr)
 ' oUnityApp.CompanyLogout()
 ' oUnityApp.UserLogout()
 oUnityApp.Disconnect()
 oUnityApp = null
 Quilt.CollectGarbage()
End Sub