Public Class frmSettings
    Private Sub frmSettings_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        UserStateBindingSource.DataSource = My.Application.User
    End Sub
End Class