METODE SORTING MODIFIED BUBBLE VB.NET

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i, j, temp As Long
        Dim n As Integer = CInt(TextBox1.Text)
        Dim x(500000) As Long
        Dim flag As Boolean


        TextBox2.Text = ("Start Time " & Hour(Now) & " " & Minute(Now) & " " & Second(Now))
        Dim start As Integer = Minute(Now)
        Dim start2 As Integer = Second(Now)

        ListBox1.Items.Clear()
        For i = 0 To CInt(TextBox1.Text) - 1
            Randomize()
            x(i) = CInt(Math.Ceiling(Rnd() * 500000)) + 1
            ListBox1.Items.Add(x(i))
        Next

        ListBox2.Items.Clear()
        For i = 0 To n - 1
            flag = True
            For j = 0 To n - i - 1
                If x(j) > x(j + 1) Then
                    temp = x(j)
                    x(j) = x(j + 1)
                    x(j + 1) = temp
                    flag = False
                End If
            Next

            If flag = True Then Exit For
        Next

        For i = 0 To n - 1
            ListBox2.Items.Add(x(i))
        Next

        TextBox3.Text = ("End Time " & Hour(Now) & " " & Minute(Now) & " " & Second(Now))
        Dim end2 As Integer = Minute(Now)
        Dim end3 As Integer = Second(Now)
        Dim interval As Integer = end2 - start
        Dim interval2 As Integer = end3 - start2
        If interval > 0 Then
            interval2 = 60 - interval2
        End If

        TextBox4.Text = ("interval " & interval & " menit dan " & interval2 & " detik")
    End Sub


End Class