Binaryworld - Display the dialog to configure a port ... [ VB -> Windows ]

The ConfigurePort API function lets you programmatically bring up the system dialog box for configuring a COM or LPT port. The function returns a non-zero value if successful (that is, the dialog appears). Here is the Declare of this function, and an example of its usage:

Click here to copy the following block

Private Declare Function ConfigurePort Lib "winspool.drv" Alias _
  "ConfigurePortA" (ByVal pName As String, ByVal hWnd As Long, _
  ByVal pPortName As String) As Long

' display the dialog for serial port configuration
If ConfigurePort(vbNullString, 0&, "COM1:") = Then
  MsgBox "Unable to display the system dialog", vbCritical
End If

' display the dialog for parallel port configuration
If ConfigurePort(vbNullString, 0&, "LPT1:") = Then
  MsgBox "Unable to display the system dialog", vbCritical
End If

Remember to always add a trailing colon when specifying the port name. Note that specifying a particular port (such as "COM2") doesn't make any difference, because the same dialog is displayed in all cases.