Public Class Form1
 
    Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal _
      lpBuffer As String, ByRef nSize As Integer) As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim computername As String = My.Computer.Name
        Dim username As String = GetUserName
        Me.Text = username & " - " & computername
    End Sub
 
    Public Function GetUserName() As String
        Dim iReturn As Integer
        Dim userName As String
        userName = New String(CChar(" "), 50)
        iReturn = GetUserName(userName, 50)
        GetUserName = userName.Substring(0, userName.IndexOf(Chr(0)))
    End Function
End Class
gruss
 
mikeb69