[求助]怎样把下面代码转换成VB代码

Ｘ嘉葰

程序在初始化的时候，自动检测系统的串口是否存在或者被占用，可以使用如下的方法：
在基于对话框的设计中，我们采用MSComm控件作为串口接口使用，但该控件没有提供检测所使用串口是否存在的函数，所以我们在程序初始化的时候如果使用了系统中不存在的串口（如，在有些笔记本中，COM1是不存在的），系统会异常，造成系统初始化不正常。为了解决这个问题，同时使我们的程序有更好的交互特性，我们可以采用如下的方法来实现这个判断。该代码仅供参考。该段代码一般放在OnInitDialog中。
HANDLE m_hCom;
CString com[2] = {"COM1", "COM2"};
CString str="";
int cnt = 0;
for(int i = 0; i< 2; i++)
{
m_hCom = CreateFile(com[i], GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL| FILE_FLAG_OVERLAPPED, NULL); // 这里的CreateFile函数起了很大的作用，可以用来创建系统设备文件，如果该设备不存在或者被占用，则会返回一个错误，即下面的 INVALID_HANDLE_VALUE ，据此可以判断可使用性。详细参见MSDN中的介绍。
if(m_hCom == INVALID_HANDLE_VALUE) // 如果没有该设备，或者被其他应用程序在用 *******************
{
str+=com[i]; // 记录下该串口名称，以备后面提示用
str+=" ";
}
else
{
cnt = i + 1; // 如果存在，则记录下来。这里只记录了一个，也可以采用一个数组来记录所有存在串口；
}
CloseHandle(m_hCom); // 关闭文件句柄，后面我们采用控件，不用API
}
if(cnt) // 如果串口存在，则执行相应的初始化（采用控件）
{
if(m_ctrlMscom.GetPortOpen()) // m_ctrlMscom是控件的一个实例
{
m_ctrlMscom.SetPortOpen(FALSE);
}
m_ctrlMscom.SetCommPort(cnt);
if(!m_ctrlMscom.GetPortOpen())
{
m_ctrlMscom.SetPortOpen(TRUE);
}
m_ctrlMscom.SetSettings("4800,n,8,1");
m_ctrlMscom.SetInputMode(1);
m_ctrlMscom.SetRThreshold(RX_PKG_SIZE);
m_ctrlMscom.SetInputLen(0);
m_ctrlMscom.GetInput();
m_strComStatus.Format("COM%d, 4800, n, 8, 1", cnt);
m_ComSettting[0] = cnt-1;
}
else // 如果不存在，则显示错误信息，而不进行串口操作，防止系统异常造成界面的初始化不完全
{
AfxMessageBox(str+"doesn't exist or is being used by other program",MB_OK);
m_ComSettting[0] = 0;
m_strComStatus.Format("No COM can be used! Plesase check your hardware!");
}
程序中标记***************的部分是该实现的关键，也就是CreateFile（）这个API的调用的作用和返回值得判断，对于一般串口设置程序来说，很好用了。这样我们就可以设计一个比较完整的串口设置代码了。