First Code in VB6 for Focas; Just in ordre to test the connection between your PC and the NControler
'---------------------
' Ethernet connection
'---------------------
' allocate library handle 3
Declare Function cnc_allclibhndl3 Lib "fwlib32.dll" (ByVal sIPaddr As String, ByVal nPort As Integer, ByVal nTimeout As Long, FlibHndl As Integer) As Integer
Private Sub Form_Load()
Dim LibHndl As Integer
Dim Ret As Integer
Ret = cnc_allclibhndl3("192.0.0.1", "8193", 10, LibHndl)
End Sub