Password Generator (Visual Basic) (2008)
Public Class Form1 <br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click <br /> Dim gen As Long <br /> gen = Rnd() * (999999999) <br /> MsgBox(gen) <br /> End Sub <br />End Class