Imports System.Data.OleDb
Imports System.IO

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared


Public Class EntryFrm2

    Dim Dst = New DataSet
    Dim con As New OleDbConnection
    Dim myDA As OleDbDataAdapter

    Public Sub serialnogenerate()
        Try
            With OleCn
                If .State <> ConnectionState.Open Then
                    .ConnectionString = StrConnection()
                    .Open()
                End If
            End With
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Connection Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

        Dim sqlquery
        Dim a
        Dim cmd As OleDbCommand
        Dim dr As OleDbDataReader

        Try
            sqlquery = "select serialno from Table1 "
            cmd = New OleDbCommand(sqlquery, OleCn)
            dr = cmd.ExecuteReader
            While dr.Read
                a = dr(0)
            End While
            Dim srlnotxt As Integer
            If Integer.TryParse(CStr(CDbl(a) + 1), srlnotxt) Then
                txtSerialNo.Text = srlnotxt.ToString
            End If
            OleCn.Close()

        Catch ex As Exception
            MsgBox(ex.Message(), MsgBoxStyle.Critical, "Auto Genrate Serial-No Error...")
        End Try
    End Sub
    Private Function RequiredEntry() As Boolean
        If txtSerialNo.Text = "" Or txtName.Text = "" Or txtDate.Text = "" Or txtLogin.Text = "" Or TxtLogout.Text = "" Or TxtDuration.Text = "" Then
            MsgBox("Please enter required (*) information....", MsgBoxStyle.Critical, "Attention...")
            Return True
            Exit Function
        End If
    End Function
    Private Function SNoExist()
        Dim Str, Str1 As String
        Dim i As Integer
        Str = txtSerialNo.Text
        i = 0
        While i <> Dst.Tables("Table1").rows.count
            Str1 = Dst.Tables("Table1").Rows(i)("SerialNo")
            If Str = Str1 Then
                Return True
            End If
            i += 1
        End While
        Return False
    End Function
    Private Sub SNoNavigation()
        Try
            OleCn.Close()
            con.ConnectionString = "Provider=Microsoft.Ace.oledb.12.0; Data Source=" & My.Application.Info.DirectoryPath.ToString() & "\BackUp\Printmaker11.Accdb;Persist Security Info=False"
            If con.State - System.Data.ConnectionState.Closed Then
                con.Open()
            End If
            myDA = New OleDbDataAdapter("SELECT * From Table1 order by 1", con)
            myDA.Fill(Dst, "Table1")
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message(), MsgBoxStyle.Critical, "Serial-No Error...")
        End Try
    End Sub
    Private Sub cmdLogin_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLogin.Click

        If RequiredEntry() = True Then
            Return
        End If

      
        Try
            With OleCn
                If .State <> ConnectionState.Open Then
                    .ConnectionString = StrConnection()
                    .Open()
                End If
            End With
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Connection Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try


        Try

            Dim cmd2 As New OleDbCommand("Update Table1 Set Dat=@Dat,CustomerName=@CustomerName,ID_Proof=@ID_Proof,LoginTime=@LoginTime,LogoutTime=@LogoutTime,Duration=@Duration,Amount=@Amount,Particular=@Particular where SerialNo=@SerialNo ", OleCn)


            'Date
            Dim Dat As OleDbParameter = New OleDbParameter("@Dat", OleDbType.VarChar, 20)
            Dat.Value = txtDate.Text.ToString()
            cmd2.Parameters.Add(Dat)

            'CustomerName
            Dim name As OleDbParameter = New OleDbParameter("@CustomerName", OleDbType.VarChar, 20)
            name.Value = txtName.Text.ToString()
            cmd2.Parameters.Add(name)

            'ID_Proof
            Dim ID_Proof As OleDbParameter = New OleDbParameter("@ID_Proof", OleDbType.VarChar, 20)
            ID_Proof.Value = TxtIDProof.Text.ToString()
            cmd2.Parameters.Add(ID_Proof)

            'LoginTime
            Dim LoginTime As OleDbParameter = New OleDbParameter("@LoginTm", OleDbType.VarChar, 20)
            LoginTime.Value = Me.TxtLogin.Text.ToString()
            cmd2.Parameters.Add(LoginTime)

            'LogoutTime
            Dim LogoutTime As OleDbParameter = New OleDbParameter("@LogoutTime", OleDbType.VarChar, 20)
            LogoutTime.Value = Me.txtLogout.Text.ToString()
            cmd2.Parameters.Add(LogoutTime)

            'Duration
            Dim Duration As OleDbParameter = New OleDbParameter("@Duration", OleDbType.VarChar, 20)
            Duration.Value = Me.TxtDuration.Text.ToString()
            cmd2.Parameters.Add(Duration)

            'Amount
            Dim Amount As OleDbParameter = New OleDbParameter("@Amount", OleDbType.VarChar, 10)
            Amount.Value = TxtAmount.Text.ToString()
            cmd2.Parameters.Add(Amount)

            'Particular
            Dim Particular As OleDbParameter = New OleDbParameter("@Particular", OleDbType.VarChar, 20)
            Particular.Value = TxtParticular.Text.ToString()
            cmd2.Parameters.Add(Particular)

            'Serial No
            Dim SerialNo As OleDbParameter = New OleDbParameter("@SerialNo", SqlDbType.BigInt)
            SerialNo.Value = txtSerialNo.Text.ToString()
            cmd2.Parameters.Add(SerialNo)

            If cmd2.ExecuteNonQuery() Then
                OleCn.Close()
                If CBFormState.Text = "1" Then
                    TimerFrm.TxtSnoCabin1.Text = ""
                    TimerFrm.LblNameCabin1.Text = ""
                    TimerFrm.LblTimeCabin1.Text = ""
                    TimerFrm.TimerCabin1.Enabled = False
                    TimerFrm.LblDurationCabin1.Text = ""
                    Me.Close()
                    Return
                End If
                If CBFormState.Text = "2" Then
                    TimerFrm.TxtSnoCabin2.Text = ""
                    TimerFrm.LblNameCabin2.Text = ""
                    TimerFrm.LblTimeCabin2.Text = ""
                    TimerFrm.TimerCabin2.Enabled = False
                    TimerFrm.LblDurationCabin2.Text = ""
                    Me.Close()
                    Return
                End If
                If CBFormState.Text = "3" Then
                    TimerFrm.TxtSnoCabin3.Text = ""
                    TimerFrm.LblNameCabin3.Text = ""
                    TimerFrm.LblTimeCabin3.Text = ""
                    TimerFrm.TimerCabin3.Enabled = False
                    TimerFrm.LblDurationCabin3.Text = ""
                    Me.Close()
                    Return
                End If
                If CBFormState.Text = "4" Then
                    TimerFrm.TxtSnoCabin4.Text = ""
                    TimerFrm.LblNameCabin4.Text = ""
                    TimerFrm.LblTimeCabin4.Text = ""
                    TimerFrm.TimerCabin4.Enabled = False
                    TimerFrm.LblDurationCabin4.Text = ""
                    Me.Close()
                    Return
                End If
                If CBFormState.Text = "5" Then
                    TimerFrm.TxtSnoCabin5.Text = ""
                    TimerFrm.LblNameCabin5.Text = ""
                    TimerFrm.LblTimeCabin5.Text = ""
                    TimerFrm.TimerCabin5.Enabled = False
                    TimerFrm.LblDurationCabin5.Text = ""
                    Me.Close()
                    Return
                End If
                If CBFormState.Text = "6" Then
                    TimerFrm.TxtSnoCabin6.Text = ""
                    TimerFrm.LblNameCabin6.Text = ""
                    TimerFrm.LblTimeCabin6.Text = ""
                    TimerFrm.TimerCabin6.Enabled = False
                    TimerFrm.LblDurationCabin6.Text = ""
                    Me.Close()
                    Return
                End If
                If CBFormState.Text = "7" Then
                    TimerFrm.TxtSnoCabin7.Text = ""
                    TimerFrm.LblNameCabin7.Text = ""
                    TimerFrm.LblTimeCabin7.Text = ""
                    TimerFrm.TimerCabin7.Enabled = False
                    TimerFrm.LblDurationCabin7.Text = ""
                    Me.Close()
                    Return
                End If
                If CBFormState.Text = "8" Then
                    TimerFrm.TxtSnoCabin8.Text = ""
                    TimerFrm.LblNameCabin8.Text = ""
                    TimerFrm.LblTimeCabin8.Text = ""
                    TimerFrm.TimerCabin8.Enabled = False
                    TimerFrm.LblDurationCabin8.Text = ""
                    Me.Close()
                    Return
                End If
                If CBFormState.Text = "9" Then
                    TimerFrm.TxtSnoCabin9.Text = ""
                    TimerFrm.LblNameCabin9.Text = ""
                    TimerFrm.LblTimeCabin9.Text = ""
                    TimerFrm.TimerCabin9.Enabled = False
                    TimerFrm.LblDurationCabin9.Text = ""
                    Me.Close()
                    Return
                End If
                If CBFormState.Text = "10" Then
                    TimerFrm.TxtSnoCabin10.Text = ""
                    TimerFrm.LblNameCabin10.Text = ""
                    TimerFrm.LblTimeCabin10.Text = ""
                    TimerFrm.TimerCabin10.Enabled = False
                    TimerFrm.LblDurationCabin10.Text = ""
                    Me.Close()
                    Return
                End If
                If CBFormState.Text = "11" Then
                    TimerFrm.TxtSnoCabin11.Text = ""
                    TimerFrm.LblNameCabin11.Text = ""
                    TimerFrm.LblTimeCabin11.Text = ""
                    TimerFrm.TimerCabin11.Enabled = False
                    TimerFrm.LblDurationCabin11.Text = ""
                    Me.Close()
                    Return
                End If
                If CBFormState.Text = "12" Then
                    TimerFrm.TxtSnoCabin12.Text = ""
                    TimerFrm.LblNameCabin12.Text = ""
                    TimerFrm.LblTimeCabin12.Text = ""
                    TimerFrm.TimerCabin12.Enabled = False
                    TimerFrm.LblDurationCabin12.Text = ""
                    Me.Close()
                    Return
                End If
                If CBFormState.Text = "13" Then
                    TimerFrm.TxtSnoCabin13.Text = ""
                    TimerFrm.LblNameCabin13.Text = ""
                    TimerFrm.LblTimeCabin13.Text = ""
                    TimerFrm.TimerCabin13.Enabled = False
                    TimerFrm.LblDurationCabin13.Text = ""
                    Me.Close()
                    Return
                End If
                If CBFormState.Text = "14" Then
                    TimerFrm.TxtSnoCabin14.Text = ""
                    TimerFrm.LblNameCabin14.Text = ""
                    TimerFrm.LblTimeCabin14.Text = ""
                    TimerFrm.TimerCabin14.Enabled = False
                    TimerFrm.LblDurationCabin14.Text = ""
                    Me.Close()
                    Return
                End If
                If CBFormState.Text = "15" Then
                    TimerFrm.TxtSnoCabin15.Text = ""
                    TimerFrm.LblNameCabin15.Text = ""
                    TimerFrm.LblTimeCabin15.Text = ""
                    TimerFrm.TimerCabin15.Enabled = False
                    TimerFrm.LblDurationCabin15.Text = ""
                    Me.Close()
                    Return
                End If
                If CBFormState.Text = "16" Then
                    TimerFrm.TxtSnoCabin16.Text = ""
                    TimerFrm.LblNameCabin16.Text = ""
                    TimerFrm.LblTimeCabin16.Text = ""
                    TimerFrm.TimerCabin16.Enabled = False
                    TimerFrm.LblDurationCabin16.Text = ""
                    Me.Close()
                    Return
                End If
                If CBFormState.Text = "17" Then
                    TimerFrm.TxtSnoCabin17.Text = ""
                    TimerFrm.LblNameCabin17.Text = ""
                    TimerFrm.LblTimeCabin17.Text = ""
                    TimerFrm.TimerCabin17.Enabled = False
                    TimerFrm.LblDurationCabin17.Text = ""
                    Me.Close()
                    Return
                End If
                If CBFormState.Text = "18" Then
                    TimerFrm.TxtSnoCabin18.Text = ""
                    TimerFrm.LblNameCabin18.Text = ""
                    TimerFrm.LblTimeCabin18.Text = ""
                    TimerFrm.TimerCabin18.Enabled = False
                    TimerFrm.LblDurationCabin18.Text = ""
                    Me.Close()
                    Return
                End If
                If CBFormState.Text = "19" Then
                    TimerFrm.TxtSnoCabin19.Text = ""
                    TimerFrm.LblNameCabin19.Text = ""
                    TimerFrm.LblTimeCabin19.Text = ""
                    TimerFrm.TimerCabin19.Enabled = False
                    TimerFrm.LblDurationCabin19.Text = ""
                    Me.Close()
                    Return
                End If
                If CBFormState.Text = "20" Then
                    TimerFrm.TxtSnoCabin20.Text = ""
                    TimerFrm.LblNameCabin20.Text = ""
                    TimerFrm.LblTimeCabin20.Text = ""
                    TimerFrm.TimerCabin20.Enabled = False
                    TimerFrm.LblDurationCabin20.Text = ""
                    Me.Close()
                    Return
                End If

            Else
                MsgBox("Record Addition Failed ", MsgBoxStyle.Critical, "Addition Failed")
                Return
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString(), "Data Error")
            Exit Sub
        End Try

    End Sub

    Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
        Try

            OleCn.Close()
            Me.Close()

        Catch ex As Exception
        End Try
    End Sub

    Private Sub EntryFrm2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Try
            OleCn.Close()
            Me.Dispose()
        Catch ex As Exception
        End Try
    End Sub
    Private Sub EntryFrm2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        e.SuppressKeyPress = e.Control
        If e.KeyCode = Keys.Enter Then
            SendKeys.Send("{tab}")
        End If
    End Sub

    Private Sub EntryFrm2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.KeyPreview = True
        Me.txtSerialNo.ReadOnly = True
    End Sub

    Private Sub txtSerialNo_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSerialNo.KeyPress
        Dim NotAllowed As String = "abcdefghijklmnopqrstuvwxyz~`@#$%^&*()_-+={[}]:;'.><?|/\.!"

        'Allowed Numbers Only
        If e.KeyChar <> ControlChars.Back = True Then
            If NotAllowed.IndexOf(e.KeyChar) = -1 = False Then
                e.Handled = True
            End If
        End If
    End Sub

    Private Sub txtName_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtName.KeyPress
        Dim NotAllowed As String = "1234567890~`@#$%^&*()_-+={[}]:;!><?/|\"

        'Allowed Letters only
        If e.KeyChar <> ControlChars.Back = True Then
            If NotAllowed.IndexOf(e.KeyChar) = -1 = False Then
                e.Handled = True
            End If
        End If
    End Sub

    Private Sub TxtAmount_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtAmount.KeyPress
        Dim NotAllowed As String = "abcdefghijklmnopqrstuvwxyz~`@#$%^&*()_-+={[}]:;'.><?|/\.!"

        'Allowed Numbers Only
        If e.KeyChar <> ControlChars.Back = True Then
            If NotAllowed.IndexOf(e.KeyChar) = -1 = False Then
                e.Handled = True
            End If
        End If
    End Sub

    Private Sub TxtLogin_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtLogin.KeyPress
        Dim NotAllowed As String = "bcdefghijklnoqrstuvwxyz~`@#$%^&*()_-+={[}];'><?|/\,!"

        'Allowed Numbers ( : . A M P)
        If e.KeyChar <> ControlChars.Back = True Then
            If NotAllowed.IndexOf(e.KeyChar) = -1 = False Then
                e.Handled = True
            End If
        End If
    End Sub

    Private Sub txtLogout_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtLogout.KeyPress
        Dim NotAllowed As String = "bcdefghijklnoqrstuvwxyz~`@#$%^&*()_-+={[}];'><?|/\,!"

        'Allowed Numbers ( : . A M P)
        If e.KeyChar <> ControlChars.Back = True Then
            If NotAllowed.IndexOf(e.KeyChar) = -1 = False Then
                e.Handled = True
            End If
        End If
    End Sub

    Private Sub TxtDuration_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtDuration.KeyPress
        Dim NotAllowed As String = "bcdefghijklnoqrstuvwxyz~`@#$%^&*()_-+={[}];'><?|/\,!"

        'Allowed Numbers ( : . A M P)
        If e.KeyChar <> ControlChars.Back = True Then
            If NotAllowed.IndexOf(e.KeyChar) = -1 = False Then
                e.Handled = True
            End If
        End If
    End Sub

    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked

        Try
            Dim a As String
            a = InputBox("Enter Cabin No:", "Response", 0)
            If a = "" Then
                Exit Sub
            End If

            Select Case a

                Case 1

                    If TimerFrm.TimerCabin1.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 1. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else
                        TimerFrm.TxtSnoCabin1.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin1.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin1.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin1.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin1.Enabled = True
                    End If

                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If

                Case 2
                    If TimerFrm.TimerCabin2.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 2. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else

                        TimerFrm.TxtSnoCabin2.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin2.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin2.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin2.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin2.Enabled = True
                    End If

                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If

                Case 3
                    If TimerFrm.TimerCabin3.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 3. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else

                        TimerFrm.TxtSnoCabin3.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin3.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin3.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin3.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin3.Enabled = True
                    End If

                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If

                Case 4

                    If TimerFrm.TimerCabin4.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 4. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else

                        TimerFrm.TxtSnoCabin4.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin4.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin4.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin4.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin4.Enabled = True
                    End If

                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If
                Case 5
                    If TimerFrm.TimerCabin5.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 5. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else

                        TimerFrm.TxtSnoCabin5.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin5.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin5.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin5.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin5.Enabled = True
                    End If

                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If

                Case 6
                    If TimerFrm.TimerCabin6.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 6. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else

                        TimerFrm.TxtSnoCabin6.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin6.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin6.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin6.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin6.Enabled = True
                    End If

                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If

                Case 7
                    If TimerFrm.TimerCabin7.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 7. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else

                        TimerFrm.TxtSnoCabin7.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin7.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin7.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin7.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin7.Enabled = True
                    End If

                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If

                Case 8
                    If TimerFrm.TimerCabin8.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 8. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else

                        TimerFrm.TxtSnoCabin8.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin8.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin8.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin8.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin8.Enabled = True
                    End If

                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If

                Case 9

                    If TimerFrm.TimerCabin9.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 9. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else

                        TimerFrm.TxtSnoCabin9.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin9.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin9.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin9.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin9.Enabled = True
                    End If

                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If

                Case 10

                    If TimerFrm.TimerCabin10.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 10. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else

                        TimerFrm.TxtSnoCabin10.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin10.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin10.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin10.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin10.Enabled = True
                    End If

                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If

                Case 11

                    If TimerFrm.TimerCabin11.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 11. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else

                        TimerFrm.TxtSnoCabin11.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin11.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin11.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin11.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin11.Enabled = True
                    End If

                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If

                Case 12

                    If TimerFrm.TimerCabin12.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 12. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else

                        TimerFrm.TxtSnoCabin12.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin12.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin12.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin12.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin12.Enabled = True
                    End If

                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If

                Case 13

                    If TimerFrm.TimerCabin13.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 13. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else

                        TimerFrm.TxtSnoCabin13.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin13.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin13.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin13.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin13.Enabled = True
                    End If

                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If

                Case 14

                    If TimerFrm.TimerCabin14.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 14. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else

                        TimerFrm.TxtSnoCabin14.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin14.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin14.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin14.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin14.Enabled = True
                    End If

                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If

                Case 15

                    If TimerFrm.TimerCabin15.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 15. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else

                        TimerFrm.TxtSnoCabin15.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin15.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin15.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin15.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin15.Enabled = True
                    End If
                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If
                Case 16

                    If TimerFrm.TimerCabin16.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 16. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else
                        TimerFrm.TxtSnoCabin16.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin16.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin16.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin16.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin16.Enabled = True
                    End If

                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If

                Case 17

                    If TimerFrm.TimerCabin17.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 17. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else
                        TimerFrm.TxtSnoCabin17.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin17.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin17.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin17.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin17.Enabled = True
                    End If

                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If

                Case 18

                    If TimerFrm.TimerCabin18.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 18. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else
                        TimerFrm.TxtSnoCabin18.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin18.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin18.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin18.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin18.Enabled = True
                    End If

                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If

                Case 19

                    If TimerFrm.TimerCabin19.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 19. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else

                        TimerFrm.TxtSnoCabin19.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin19.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin19.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin19.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin19.Enabled = True
                    End If

                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If

                Case 20

                    If TimerFrm.TimerCabin20.Enabled = True Then
                        MessageBox.Show("You cant send this user to Cabin No : 20. Becouse allready another one user is there!!! ", "Attention... ", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return
                    Else
                        TimerFrm.TxtSnoCabin20.Text = Me.txtSerialNo.Text
                        TimerFrm.LblNameCabin20.Text = Me.txtName.Text
                        TimerFrm.LblTimeCabin20.Text = Me.TxtLogin.Text
                        TimerFrm.LblDurationCabin20.Text = Me.TxtDuration.Text
                        TimerFrm.TimerCabin20.Enabled = True
                    End If

                    If CBFormState.Text = "1" Then
                        TimerFrm.TxtSnoCabin1.Text = ""
                        TimerFrm.LblNameCabin1.Text = ""
                        TimerFrm.LblTimeCabin1.Text = ""
                        TimerFrm.TimerCabin1.Enabled = False
                        TimerFrm.LblDurationCabin1.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "2" Then
                        TimerFrm.TxtSnoCabin2.Text = ""
                        TimerFrm.LblNameCabin2.Text = ""
                        TimerFrm.LblTimeCabin2.Text = ""
                        TimerFrm.TimerCabin2.Enabled = False
                        TimerFrm.LblDurationCabin2.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "3" Then
                        TimerFrm.TxtSnoCabin3.Text = ""
                        TimerFrm.LblNameCabin3.Text = ""
                        TimerFrm.LblTimeCabin3.Text = ""
                        TimerFrm.TimerCabin3.Enabled = False
                        TimerFrm.LblDurationCabin3.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "4" Then
                        TimerFrm.TxtSnoCabin4.Text = ""
                        TimerFrm.LblNameCabin4.Text = ""
                        TimerFrm.LblTimeCabin4.Text = ""
                        TimerFrm.TimerCabin4.Enabled = False
                        TimerFrm.LblDurationCabin4.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "5" Then
                        TimerFrm.TxtSnoCabin5.Text = ""
                        TimerFrm.LblNameCabin5.Text = ""
                        TimerFrm.LblTimeCabin5.Text = ""
                        TimerFrm.TimerCabin5.Enabled = False
                        TimerFrm.LblDurationCabin5.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "6" Then
                        TimerFrm.TxtSnoCabin6.Text = ""
                        TimerFrm.LblNameCabin6.Text = ""
                        TimerFrm.LblTimeCabin6.Text = ""
                        TimerFrm.TimerCabin6.Enabled = False
                        TimerFrm.LblDurationCabin6.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "7" Then
                        TimerFrm.TxtSnoCabin7.Text = ""
                        TimerFrm.LblNameCabin7.Text = ""
                        TimerFrm.LblTimeCabin7.Text = ""
                        TimerFrm.TimerCabin7.Enabled = False
                        TimerFrm.LblDurationCabin7.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "8" Then
                        TimerFrm.TxtSnoCabin8.Text = ""
                        TimerFrm.LblNameCabin8.Text = ""
                        TimerFrm.LblTimeCabin8.Text = ""
                        TimerFrm.TimerCabin8.Enabled = False
                        TimerFrm.LblDurationCabin8.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "9" Then
                        TimerFrm.TxtSnoCabin9.Text = ""
                        TimerFrm.LblNameCabin9.Text = ""
                        TimerFrm.LblTimeCabin9.Text = ""
                        TimerFrm.TimerCabin9.Enabled = False
                        TimerFrm.LblDurationCabin9.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "10" Then
                        TimerFrm.TxtSnoCabin10.Text = ""
                        TimerFrm.LblNameCabin10.Text = ""
                        TimerFrm.LblTimeCabin10.Text = ""
                        TimerFrm.TimerCabin10.Enabled = False
                        TimerFrm.LblDurationCabin10.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "11" Then
                        TimerFrm.TxtSnoCabin11.Text = ""
                        TimerFrm.LblNameCabin11.Text = ""
                        TimerFrm.LblTimeCabin11.Text = ""
                        TimerFrm.TimerCabin11.Enabled = False
                        TimerFrm.LblDurationCabin11.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "12" Then
                        TimerFrm.TxtSnoCabin12.Text = ""
                        TimerFrm.LblNameCabin12.Text = ""
                        TimerFrm.LblTimeCabin12.Text = ""
                        TimerFrm.TimerCabin12.Enabled = False
                        TimerFrm.LblDurationCabin12.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "13" Then
                        TimerFrm.TxtSnoCabin13.Text = ""
                        TimerFrm.LblNameCabin13.Text = ""
                        TimerFrm.LblTimeCabin13.Text = ""
                        TimerFrm.TimerCabin13.Enabled = False
                        TimerFrm.LblDurationCabin13.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "14" Then
                        TimerFrm.TxtSnoCabin14.Text = ""
                        TimerFrm.LblNameCabin14.Text = ""
                        TimerFrm.LblTimeCabin14.Text = ""
                        TimerFrm.TimerCabin14.Enabled = False
                        TimerFrm.LblDurationCabin14.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "15" Then
                        TimerFrm.TxtSnoCabin15.Text = ""
                        TimerFrm.LblNameCabin15.Text = ""
                        TimerFrm.LblTimeCabin15.Text = ""
                        TimerFrm.TimerCabin15.Enabled = False
                        TimerFrm.LblDurationCabin15.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "16" Then
                        TimerFrm.TxtSnoCabin16.Text = ""
                        TimerFrm.LblNameCabin16.Text = ""
                        TimerFrm.LblTimeCabin16.Text = ""
                        TimerFrm.TimerCabin16.Enabled = False
                        TimerFrm.LblDurationCabin16.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "17" Then
                        TimerFrm.TxtSnoCabin17.Text = ""
                        TimerFrm.LblNameCabin17.Text = ""
                        TimerFrm.LblTimeCabin17.Text = ""
                        TimerFrm.TimerCabin17.Enabled = False
                        TimerFrm.LblDurationCabin17.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "18" Then
                        TimerFrm.TxtSnoCabin18.Text = ""
                        TimerFrm.LblNameCabin18.Text = ""
                        TimerFrm.LblTimeCabin18.Text = ""
                        TimerFrm.TimerCabin18.Enabled = False
                        TimerFrm.LblDurationCabin18.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "19" Then
                        TimerFrm.TxtSnoCabin19.Text = ""
                        TimerFrm.LblNameCabin19.Text = ""
                        TimerFrm.LblTimeCabin19.Text = ""
                        TimerFrm.TimerCabin19.Enabled = False
                        TimerFrm.LblDurationCabin19.Text = ""
                        Me.Close()
                        Return
                    End If
                    If CBFormState.Text = "20" Then
                        TimerFrm.TxtSnoCabin20.Text = ""
                        TimerFrm.LblNameCabin20.Text = ""
                        TimerFrm.LblTimeCabin20.Text = ""
                        TimerFrm.TimerCabin20.Enabled = False
                        TimerFrm.LblDurationCabin20.Text = ""
                        Me.Close()
                        Return
                    End If

                Case Else
                    MessageBox.Show("Involid Cabin no... ", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                    Exit Sub
            End Select

        Catch ex As Exception
        End Try
    End Sub

    Private Sub cmdClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClear.Click
        Try
            Me.txtSerialNo.ReadOnly = True
            Me.txtName.Text = ""
            Me.txtDate.Value = Today
            Me.TxtIDProof.Text = ""
            Me.TxtParticular.Text = ""
            Me.TxtLogin.Text = ""
            Me.txtLogout.Text = ""
            Me.TxtDuration.Text = ""
            Me.TxtAmount.Text = ""
        Catch ex As Exception
        End Try
    End Sub
End Class