[EHAB.NET]

السلام عليكم ورحمة الله وبركاته

كود button1

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = Int(Rnd() * 6)
        Select Case TextBox1.Text
            Case 0
                TextBox1.Text = "1330-1813-5332-3018-4123-4267"

            Case 1
                TextBox1.Text = "1330-1167-8857-3801-9962-4540"

            Case 2
                TextBox1.Text = "1330-1182-3585-9477-5524-4839"

            Case 3
                TextBox1.Text = "1330-1813-5332-3018-4123-4267"

            Case 4
                TextBox1.Text = "1330-1011-6547-2116-7061-1195"

            Case 5
                TextBox1.Text = "1330-1430-9860-3108-6588-8053"

        End Select
    End Sub

[COLOR="#0000CD"]ولا تنسى ادراج TextBox1 في الفورم

والمثال في المرفق [/COLOR]