Generating Serial Code For the Applications in Dot Net

     Protected Sub btnFile_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnFile.Click

        'Generating Serial Code For the Applications in Dot Net

        Dim chars As String = "ABCDEFGHIJKLMNOPRSTUVYZX0123456789"

        Dim i, j, k As Integer

        Dim l As String = ""

        For j = 0 To 4

            For k = 0 To 4

                i = CInt(Int((33 * Rnd()) + 1))

                l += Mid(chars, i, 1)

            Next k

            l += "-"

        Next j

        Response.Write("Serial Code : " & Left(l, 29))

    End Sub