Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim g As New Guid Button1.Text = g.NewGuid.ToString() End Sub