Public system_user As New class_user

    Public Function set_newUser(ByVal newUser As Integer) As Boolean
        '// Temporary Saving for User-Data
        Dim tmp_userdata As class_struct.userdata
 
        '// Get data for requested User
        tmp_userdata = Me.db.getUserInfo(newUser)
 
        '// Check if user exists
        If Not tmp_userdata.userLoginName = "" Then
 
            MessageBox.Show("DEBUG_2")
 
            '// Save that user is set successfully
            Me.user_isInit = True
 
            '// Save data from database in class
            Me.user_id = newUser
            Me.user_loginName = tmp_userdata.userLoginName
            Me.user_nameFirst = tmp_userdata.userNameFirst
            Me.user_nameLast = tmp_userdata.userNameLast
            Me.user_personnelNumber = tmp_userdata.userPersonnelNummber
            Me.user_admin = tmp_userdata.userAdmin
 
        Else
            Me.user_isInit = False
        End If
 
        Return Me.user_isInit
    End Function

    '// Public setup function
    Public Function system_setup(ByVal setup_mode As String, ByVal setup_user _
      As Integer) As Boolean
        MessageBox.Show("DEBUG_1")
        '// Setup Mode
        If system_setup_mode(setup_mode) Then
            '// Setup User
            If system_setup_user(setup_user) Then
                Return True
            End If
        End If
 
        Return False
    End Function

MessageBox.Show("DEBUG_1")