Imports DevExpress.ExpressApp.Win
Imports DevExpress.XtraSplashScreen

Public Class MomoSplash
    Implements ISplash, ISupportUpdateSplash

    Private _IsStarted As Boolean = False
    Private _Counter As Int16 = 0
    Sub New()
        InitializeComponent()
    End Sub

    Public ReadOnly Property IsStarted As Boolean Implements ISplash.IsStarted
        Get
            Return _IsStarted
        End Get
    End Property

    Public Overrides Sub ProcessCommand(ByVal cmd As System.Enum, ByVal arg As Object)
        MyBase.ProcessCommand(cmd, arg)
    End Sub

    Public Sub Start() Implements ISplash.Start
        If _Counter <= 1 Then
            _IsStarted = True
            Me.Properties.UseFadeInEffect = False
            Me.Properties.UseFadeOutEffect = False
            Me.Show()
            System.Windows.Forms.Application.DoEvents()

        End If
    End Sub

    Public Sub [Stop]() Implements ISplash.Stop
        Me.Hide()
        Me.Close()
        _IsStarted = False
    End Sub

    Public Sub SetDisplayText(displayText As String) Implements ISplash.SetDisplayText

    End Sub

    Public Sub UpdateSplash(caption As String, description As String, ParamArray additionalParams() As Object) Implements ISupportUpdateSplash.UpdateSplash
        Me.labelControl2.Text = description
    End Sub

    Public Enum SplashScreenCommand
        SomeCommandId
    End Enum
End Class