codice:
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show(My.Computer.FileSystem.SpecialDirectories.MyDocuments)
        MessageBox.Show(My.User.Name)
End Sub