title: Overload resolution failed because no accessible 'Rnd' accepts this number of arguments
body: <pre><code>Public Class Form1
  Dim r As New Random
  Dim angka As Long = True
  Dim i As Integer
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      WebBrowser1.Navigate(TextBox3.Text)
      WebBrowser1.ScriptErrorsSuppressed = True
  End Sub
  Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
      WebBrowser1.Navigate(TextBox3.Text)
      TextBox1.Text = "803057" + r.Next(0, 100000).ToString
      angka = Rnd(0, 100000000000000).ToDouble
      TextBox2.Text = angka
  End Sub
  
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      WebBrowser1.Document.GetElementById("username_member").SetAttribute("value", TextBox1.Text)
      WebBrowser1.Document.GetElementById("password_member").SetAttribute("value", TextBox2.Text)
      WebBrowser1.Document.GetElementById("submit").InvokeMember("click")
  End Sub
  </code></pre>
  
  <p>End Class<a href="http://i.stack.imgur.com/OTwAX.png" rel="nofollow">enter image description here</a></p>
  
  <p>Hallo,
  i have error in my project, anyone can help me ?</p>