Enumerate serial ports

'---------------------------------------------------------------------
' Visual Basic 6 Example
'---------------------------------------------------------------------
On Error GoTo ErrorHandler
	Dim i As Integer
	Dim nPorts As Integer
	Dim PortName As String

	nPorts = FTSPCControl1.EnumSerialPorts()
	For i = 0 To nPorts
		PortName = FTSPCControl1.GetSerialPort(i)

	' Todo: add your code

	Next i
	Exit Sub

	ErrorHandler:
		Dim err_code As Integer
		err_code = FTSPCControl1.GetLastError
		MsgBox "ErrorCode = " & CStr(err_code) & " - " & _
			Err.Description, vbCritical, "Error!"


/////////////////////////////////////////////////////////////////////
// C++ Example
/////////////////////////////////////////////////////////////////////
CString PortName;

try
{
	long nPorts = m_SPCControl1.EnumSerialPorts();
	for (int i = 0; i < nPorts i++)
	{
		PortName = m_SPCControl1.GetSerialPort(i);
		// Todo: add your code
	}
}
catch(COleDispatchException* E)
{
	MessageBox(E->m_strDescription, mbCaption, MB_OK | MB_ICONERROR);
}