Password Generator (Visual Basic) (2008)

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim gen As Long
gen = Rnd() * (999999999)
MsgBox(gen)
End Sub
End Class