Visual Basic - AYUDA, POR FAVOR

Me gustaria saber si alguien me puede ayudar con el codigo para obtener el nombre del usuario activo, el tiempo ke lleva de inicada la sesion (o al menos la hora en la ke fue iniciada la sesion) y si es posible saber el numero de pagiinas impresas

gRACIAS

No especificas el sistema operatico donde corre tu programa pero para
W95/98 puedes usar esto... No lo he probado en NT, 2000

En un formulario, pon una etiqueta llamada lblWelcome y pega el codigo de abajo para probar la API :

Option Explicit

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

' Return the user's name.
Private Function UserName() As String
Const UNLEN = 256 ' Max user name length.
Dim user_name As String
Dim name_len As Long

user_name = Space$(UNLEN + 1)
name_len = Len(user_name)
If GetUserName(user_name, name_len) = 0 Then
UserName = "<unknown>"
Else
UserName = Left$(user_name, name_len - 1)
End If
End Function

Private Sub Form_Load()
lblWelcome.Caption = "Welcome " & UserName() & "!"
End Sub

Saludos...