Random 1-10 ทำไง แบบไม่ซ้ำกันอะ Random 1-10 ทำไง แบบไม่ซ้ำกันอะ

        Dim iCnt As Integer = 0
        Dim Result As String = String.Empty
        Dim num As String
        Do While iCnt < 10
            num = " " & Format(Int((10 * Rnd()) + 1), "#0") & " "
            If InStr(Result, num) = 0 Then
                Result = Result & num
                iCnt = iCnt + 1
            End If
        Loop
        MsgBox(Result)