To extend this you can add your own constructor to the class that takes the parameters you require when you create it.
Or you have a With command as wellCode:Sub New(TheUserName As String, TheRef As Integer) Me.UserName = TheUserName Me.Ref = TheRef End Sub
Code:Dim Thing As New MyClass With {.Name = "John", .Ref = 10} 'guessing at syntax!




Reply With Quote