Imports DigitalData.Modules.Logging

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim oLogConfig As New LogConfig(LogConfig.PathType.CustomPath, Application.StartupPath)
        Dim oConnectionString = "Server=sDD-VMP04-SQL17\DD_DEVELOP01;Database=IDB_TEST;User Id=sa;Password=dd;"

        ChatControl1.Init(oLogConfig, oConnectionString, "JenneJ")
        ChatControl1.LoadConversations(10070)
    End Sub
End Class