Simulación programa final

  Dim Reloj, numAleatorio, numLlegada As Integer

    Dim contadorEventos As Integer = 0

    Dim numClientes As Integer = 0

    Dim tiempoOcurrencia As Integer = 0

    Dim Status As String

    Dim Disponibilidad As String = "en linea"

    Dim listaClientes As New List(Of String)

    Dim clientesInsatisf As Integer = 0

    Public Sub Abrir()

        Reloj = 32400

        contadorEventos += 1

        Status = "Abierto"

    End Sub

    Public Sub LlegadaCliente()

        Dim r As New Random

        numAleatorio = r.Next(2700, 4500)

        Reloj = Reloj + numAleatorio

        contadorEventos += 1

        numLlegada += 1

        If Status = "Abierto" Then

            LlegadaCliente()

        End If

        If Status = "Abierto" And Disponibilidad = "en linea" Then

            If numClientes < 8 Then

                listaClientes.Add(numLlegada + " " + Reloj + " ")

                numClientes += 1

                If Status = "Desocupado" Then

                End If

            Else : clientesInsatisf += 1

            End If

        Else : clientesInsatisf += 1

        End If

    End Sub

    Public Sub inicioAtencion()

        contadorEventos += 1

        Status = "Ocupado"

        Reloj = Reloj + numAleatorio

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    End Sub

End Class

...