[soloxocf1]

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

انا عايز نفس الي موجود في الكود بس ينفذ امر تاني  
الامر هو ان هو يفتح صفحة مختلفة  في webbrowser1[b] كل لما يضغط علي button1[/b]
الصفحات زي جوجل او فيسبوك او ياهو .......الخ.

كود :

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

ولو في كود تاني عادي مش شرط نفس الكود 

[elgokr]

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

تفضل الكود

كود :

       TextBox1.Text = Int(Rnd() * 6)
       Select Case TextBox1.Text
           Case 0
               WebBrowser1.Navigate("http://www.google.com/")
           Case 1
               WebBrowser1.Navigate("http://www.facebook.com/")
           Case 2
               WebBrowser1.Navigate("http://www.twitter.com/")
           Case 3
               WebBrowser1.Navigate("http://www.vb4arb.com/")
           Case 4
               WebBrowser1.Navigate("http://www.vb4arb.com/")
           Case 5
               WebBrowser1.Navigate("http://www.vb4arb.com/")
       End Select

تحياتى لك

وتمنياتى لك التوفيق