Declare Function ConfigurePort Lib "winspool.drv" Alias "ConfigurePortA" (ByVal pName As String, _ ByVal hwnd As Long, _ ByVal pPortName As String) As Long
ConfigurePort выводит диалоговое окно настройки порта. Перед вызовом данной функции используйте EnumPorts.
' Вызываем диалоговое окно COM1
Call ConfigurePort("", Me.hwnd, "COM1:")