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
|
