롤링 ListBox

Private Sub 롤링실행버튼_Click(sender As Object, e As EventArgs) Handles 롤링실행버튼.Click

        CheckForIllegalCrossThreadCalls = False  '쓰레드 오류 무시(정상적으로 사용하려면 delegate와 Invoke 사용 필요)

        Me.BackgroundWorker1.RunWorkerAsync()

    End Sub

Public Sub Delay(ByVal Second As Integer)

        Dim _startsecond As Integer

        _startsecond = Environment.TickCount

        While (True)

            If (Environment.TickCount - _startsecond >= Second * 1000) Then

                Exit While

            End If

            Application.DoEvents()

        End While

    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

        Try

'======================== DB 연결 ================================

            Dim DBConn As SqlConnection

            DBConn = New SqlConnection(dbstring_psnm)

            DBConn.Open()

            Dim mySqlCommAND As SqlCommand

            Dim QueryString As String

            QueryString = "select 유형1 From TB_Psnm_SMS_List ORDER BY 유형1 ASC "

            mySqlCommAND = New SqlCommand(QueryString, DBConn)

            Dim DBread As SqlDataReader = mySqlCommAND.ExecuteReader()

            While (DBread.Read())

                ListBox1.Items.Add(DBread.Item(0))

            End While

            DBread.Close()

            mySqlCommAND.Dispose()

            DBConn.Close()

'================================================================

            Delay(1)

'=========================== 롤링 쓰레드=============================

            Do Until DataGridView1.Location.Y = -120

                ListBox1.Location = New Point(3, ListBox1.Location.Y - 1)

                Threading.Thread.Sleep(50)

                Delay(0.5)

                Refresh()

            Loop

'================================================================

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub