BUG: You receive an error message when you use an Enum parameter in an ActiveX control method that you create in Visual Basic 6.0 (832676)

MORE INFORMATION

Steps to reproduce the behavior

1. Start Visual Basic 6.0.
2. Create a new ActiveX Control project.
   
   By default, the UserControl1.ctl file is created.
3. Add the following code to the UserControl1.ctl file:

   Option Explicit
   
   Public Type UpdateInfo
       FileName As String
       Register As Boolean
       FileSize As Long
   End Type
   
   Public Enum UpdateType
       utHRDat = 1
       utHRUpdate = 2
   End Enum
   
   Public Sub GetUpdateInfo(ByVal UType As UpdateType, ByRef UpdateFiles() As UpdateInfo, ByRef uIndex As Integer)
   
   End Sub
   

4. On the File menu, click Make Project1.ocx.
   
   The Project1.ocx file is created.
5. Create a new Standard EXE project.
   
   By default, the Form1.frm file is created.
6. Add a CommandButton control to the Form1.frm file.
7. On the Project menu, click Components to add the Project1.ocx file control to the Toolbox window.
   
   The UserControl1 ActiveX control is added to the Toolbox window.
8. Add the UserControl1 control to the Form1.frm file.
9. Add the following code to the Form1.frm file:

   Option Explicit
   
   Private Sub Command1_Click()
       Dim uf() As UpdateInfo
       Dim uindex As Integer
       uindex = -1
       UserControl11.GetUpdateInfo UpdateType.utHRDat, uf, uindex
       MsgBox uindex
   End Sub

10. On the Debug menu, click Start.
11. In the Form1 window, click the Command1 button.
    
    You receive one of the error messages that are mentioned in the "Symptoms" section of this article.