First create solution

Nuvolar.Module.Win/BusinessObjects/SIS/Chat/SISChatWC.vb

@@ -0,0 +1,52 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+
+Imports System.Windows.Forms
+Imports DevExpress.XtraBars.Alerter
+Imports DevExpress.ExpressApp.Utils
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.Persistent.BaseImpl
+
+Public Class SISChatWC
+	Inherits DevExpress.ExpressApp.WindowController
+
+    Private ChatAlertControlCore As AlertControl
+    Private ChatAlertTimerCore As Timer
+    Private ChatTimerCore As Timer
+
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+        TargetWindowType = WindowType.Main
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        '// Meg kell nézni, hogy a felhasználó tud-e Chatelni !
+
+
+    End Sub
+    Protected Overridable Sub InitChatTimerCore()
+        ChatTimerCore = New Timer()
+        AddHandler ChatTimerCore.Tick, AddressOf ChatTimerCore_Tick
+        ChatTimerCore.Interval = 5000
+        ChatTimerCore.Start()
+    End Sub
+
+    Private Sub ChatTimerCore_Tick(sender As Object, e As EventArgs)
+        '// Itt kell lekérni a cuccokat
+    End Sub
+
+End Class