Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Dim tmp As String = Environment.GetEnvironmentVariable("USERNAME")
        Debug.WriteLine("tmp=" & tmp) ' Immer noch "TempUser"
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim tmp As String = Environment.GetEnvironmentVariable("USERNAME")
        Debug.WriteLine("tmp=" & tmp) ' Ist zB "DaveS"
        Environment.SetEnvironmentVariable("USERNAME", "TempUser", _
          EnvironmentVariableTarget.Process)
        tmp = Environment.GetEnvironmentVariable("USERNAME")
        Debug.WriteLine("tmp=" & tmp) ' Ist "TempUser"
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist