ChatControl + Test

ChatTest/Form1.vb

@@ -1,3 +1,11 @@
-Public Class Form1
+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