Private Sub Form1_Load (Byval E AS System.Object, Byval E AS System.Eventargs) Handles MyBase.Load
DIM G AS New Guid
Button1.text = g.newguid.tostring ()
End Sub
