Visual Basic

With NewHS
    .Lines = nLijnen
    .PlayDate = Now
    Console.SetCursorPosition(10, 21)
    Console.Write("New highscore. " & nLijnen & " Your name please? ")
    .Name = Console.ReadLine
    .Name = .Name.Trim
    If .Name = "" Then .Name = "[No Name]"
End With

Sub ClearKBBuffer()
    While Console.KeyAvailable
        Console.ReadKey(True)
        Console.ReadKey()
    End While
End Sub

<pre> Try
            

        
           
            Dim cmd As New FbCommand("SELECT A.EVENTDATE AS EVENTDATE ,A.PRIORITY AS PRIORITY ,B.CARDHOLDERID AS CARDHOLDERID," & _
                                              "B.EMAIL AS EMAIL,B.NAME AS NAME,C.WINSOCKIPADDRESS AS WINSOCKIPADDRESS,A.DEVICEID AS DEVICEID, " & _
                                               "D.DESCRIPTION AS DESCRIPTION " & _
                                              " FROM EVENT A , CARDHOLDER B , COMMCHANNEL C, DEVICE D " & _
                                           "WHERE (A.CARDHOLDERID = B.CARDHOLDERID)" & _
                                            " AND (A.COMMCHANNELID = C.COMMCHANNELID) " & _
                                            " AND (A.DEVICEID = D.DEVICEID) " & _
                                          "AND A.CARDHOLDERID IS NOT NULL " & _
                                         "AND B.USERDEFINED9 = 'STAFF' AND B.STATUS='Normal'" & _
                                       " AND A.PRIORITY IS NULL " & _
                                           "AND A.EVENTDATE >= CAST('TODAY' AS DATE) AND A.EVENTMSG = 'Access Granted' " & _
                                              "ORDER BY A.EVENTDATE ASC", IBSSCN)
          
            IBSSDR = cmd.ExecuteReader()

            ListView1.Items.Clear()

            Dim bFlag As Boolean = True
            Do Until Not bFlag
                While IBSSDR.Read

                   

                    Dim touch As DateTime = Convert.ToDateTime(IBSSDR.Item("EVENTDATE"))
                    Dim date1 As String = touch.Date.ToString("dd/MM/yyyy")
                    Dim time1 As String = Format(touch, ("hh:mm:ss tt"))



                    Dim str(5) As String
                    Dim itm As ListViewItem
                    str(0) = IBSSDR.Item("CARDHOLDERID")
                    str(1) = IBSSDR.Item("NAME")
                    str(2) = date1
                    str(3) = time1
                    ' str(4) = IBSSDR.Item("EMAIL")

                    If IBSSDR.Item("EMAIL") Is DBNull.Value Then
                        str(4) = ""
                    Else
                        str(4) = IBSSDR.Item("EMAIL")
                    End If
                  
                    itm = New ListViewItem(str)
                    ListView1.Items.Add(itm)

                End While
                bFlag = IBSSDR.NextResult

            Loop

            IBSSCN.ClearAllPools()
         




            

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

<pre lang="VB">
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Enabled = True
        Timer1.Interval = 6000
        ListView1.Update()
        ListView1.Refresh()

end sub