Dim _session As ISession
    Dim _factory As ISessionFactory
    Dim _config As Configuration
    Dim _messages As IList
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        _config = New Configuration
        Try
            _config.Configure()
        Catch ex As Exception
        End Try
        _factory = _config.BuildSessionFactory
        _session = Nothing
        _messages = Nothing
        Try
            _session = _factory.OpenSession
            _messages = _session.CreateCriteria(GetType(TheData.MessaggeProvider)).List()
            For Each aMessage As TheData.MessaggeProvider In _messages
                ListBox1.Items.Add(String.Format("Id:{0} - Message:{1}", aMessage.Id, aMessage.Message))
            Next
            _session.Close()
        Catch ex As Exception
            _session.Close()
        End Try
    End Sub