To extend this you can add your own constructor to the class that takes the parameters you require when you create it.

Code:
Sub New(TheUserName As String, TheRef As Integer)
   Me.UserName = TheUserName
   Me.Ref = TheRef
End Sub
Or you have a With command as well
Code:
   Dim Thing As New MyClass With {.Name = "John", .Ref = 10}   'guessing at syntax!