Öncelikle kod eklememiz lazım bunuda şöyle ekliyoruz. Araya ekliyoruz.
Private Sub GenerateGUID()
Dim neos As String
neos = System.Guid.NewGuid.ToString()
MessageBox.Show(neos)
End Sub
Sonra birtane button ekleyip buttona çift tıklayıp şu kodu giriyoruz...