อยากถามเรื่องการรันเลขตามรอบที่เรากำหนด โดยเลขที่รันออกมาจะต้องไม่เกินเลขที่ตั้งค่าไว้

'วนใส่ ListBox นะ
        Dim startNum, countLoop, recount As Integer

        startNum = 9    'เลขที่ให้เริ่ม
        countLoop = 6   'จำนวนรอบ 6 รอบ
        recount = 12    'ให้วนใหม่ ณ.12

        For i = 1 To countLoop
            If startNum > recount Then startNum = 1
            ListBox1.Items.Add(startNum)
            startNum += 1
        Next