Kofax DM API - Manual (Page 90)

70 C HAPTER 3
PCDNetworkInfo
Public sDST As String
Private Sub cbDomain_Click()
DomainForm.oNWInfo. SetDST (sDST)
DomainForm.Show
End Sub
Private Sub cbGroupInfo_Click()
GroupForm.sDST = sDST
GroupForm.oGroupInfo. SetDST (sDST)
GroupForm.Show
End Sub
Private Sub cbQuit_Click()
Unload NetInfoBaseForm
End Sub
Private Sub Form_Load()
'Local Variable declarations.
Dim oLogin As New PCDLogin
Dim nResult As Long
Dim sTempBuf As String
'Login process.
nResult = oLogin. AddLogin (0, "MyLibrary", "", "")
nResult = oLogin. AddLogin (0, "MyDomain", _
"MyUserID", "MyPassword")
nResult = oLogin. Execute ()
sDST = oLogin. GetDST ()
'Get And display the DST.
txtDST.Text = sDST
End Sub