FIX: Toggling PortOpen w/MSCOMM32.OCX Leaks Memory on Win95/98 (171472)

The information in this article applies to:

Microsoft Visual Basic Control Creation Edition for Windows 5.0
Microsoft Visual Basic Learning Edition for Windows 5.0
Microsoft Visual Basic Learning Edition for Windows 6.0
Microsoft Visual Basic Professional Edition for Windows 5.0
Microsoft Visual Basic Professional Edition for Windows 6.0
Microsoft Visual Basic Enterprise Edition for Windows 5.0
Microsoft Visual Basic Enterprise Edition for Windows 6.0

This article was previously published under Q171472

SYMPTOMS

When using the PortOpen method of the MSCOMM32.OCX control, continuous or multiple uses of this method will produce a memory drain. The exact amount of memory and resources lost varies with different port drivers installed.

STATUS

Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article. This bug has been fixed in Visual Studio 97 Service Pack 2.

For more information on the Visual Studio 97 Service Pack 2, please see the following article in the Microsoft Knowledge Base:

170365 : INFO: Visual Studio 97 Service Packs - What, Where, and Why

For a list of the Visual Basic 5.0 bugs that were fixed in the Visual Studio 97 Service Pack 2, please see the following article in the Microsoft Knowledge Base:

171554 : INFO: Visual Basic 5.0 Fixes in Visual Studio 97 Service Pack 2

MORE INFORMATION

Steps to Reproduce Behavior

Create a new Standard EXE project.
Add an instance of the mscomm32.ocx control to Form1.

Add the following code to Form1.

      Sub Form_Load()
        Show
        While True
           MSComm1.Settings = "9600, N, 8, 1"
           MSComm1.PortOpen = True
           x = Timer
           Do While x + 0.25 > Timer
               DoEvents: DoEvents: DoEvents
           Loop
           MSComm1.PortOpen = False
           x = Timer
           Do While x + 0.25 > Timer
               DoEvents: DoEvents: DoEvents
           Loop
        Wend
      End Sub

Run the application by pressing the F5 Key.

After about 100 iterations, memory will be reduced by about 4k.

Modification Type:	Major	Last Reviewed:	5/12/2003
Keywords:	kbBug kbCtrl kbfix kbvbp500sp2fix kbVS97fix kbVS97sp3fix KB171472