Mendapatkan Username Yg Aktif

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	TextBox	1	Text	""	kosongkan

Cara Pertama :

Masukkan souce ini ke dalam Form :Private Sub Form_Load() Text1.Text = Environ$("Username") End Sub

Cara Kedua :

Masukkan souce ini ke dalam Form :Private Sub Form_Load() Text1.Text = GetUserName End Sub

Masukkan souce ini ke dalam Module :Declare Function GetUserNameA Lib "advapi32.dll" (ByVal lpBuffer As String, nSize As Long) As Long Public Function GetUserName() As String Dim UserName As String * 255 GetUserNameA UserName, 255 GetUserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1) End Function