Use Shared method to construct Object
Imports System
Imports System.Drawing
Imports System.Data
Imports System.IO
Imports System.Collections
Imports System.Windows.Forms
Imports System.Drawing.Printing
Public Class MainClass
Shared Sub Main()
Dim newUser As User
newUser = User.CreateUser("Joe", "password15")
Console.WriteLine(newUser.Username)
End Sub
End Class
Public Class User
Public Username As String
Private password As String
Public Shared Function CreateUser(ByVal username As String, _
ByVal password As String) As User
Dim user As New User()
user.Username = username
user.Password = password
Return user
End Function
End Class
Related examples in the same category