Private Sub Command3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Command3.Click
' ****************************************
' Disconnection
' *****************************************
Dim rtn As Integer
'Disconnection
rtn = AxActEasyIF1.Close()
If rtn = 0 Then
MsgBox("The disconnection was successful")
Else
MsgBox("Disconnection Error:"& Hex(rtn))
End If
End Sub
APPENDICES
A
393