I think this might be it:

vb Code:
  1. me.lblfeedback.text = System.Environment.UserName & "  Logged in at: " & date.now.tostring