Passing userform as parameter to form launching utility-CodePudding

I am trying to create a utility which launches a new instance of a specified userform with custom parameters, but I am having trouble passing the desired userform to the utility.

In a module:

Public Sub LaunchForm(MachID As String, FormType As UserForm)

Dim Form As New FormType

With Form
    .MachineID = MachID
    .Show
End With  

End Sub

In the userform from which the form is to be launched:

Private Sub RemovePart32_Click()
   LaunchForm "Machine32", RemovePart
End Sub

When I click the "RemovePart32" button, I get a compile error "user defined type not defined". I am guessing that I should pass the userform as a string but I get a type error if I do that and I'm not sure how to get around that. Any advice would be appreciated.

CodePudding user response：

FormType is actually a variable that you've declared as one of the parameters in LaunchForm, not a type. And so you cannot create a new instance of a variable.

Since you want to invoke the Show method of the userform passed to LaunchForm, you should pass the userform by value as a generic object.

Alternatively, you can pass the userform by reference as the actual class of the userform, which would be the name of the userform itself (ie. UserForm1 or whatever else you may have named it).

So, for example, to pass your userform by value as a generic object, try...

Public Sub LaunchForm(MachID As String, ByVal Form As Object)

    With Form
        .MachineID = MachID
        .Show
    End With

End Sub