>Public Class CurrentUserClass > ' This class creates a structure that will store the current > ' user information after they successfully login to the application. > ' Example: > ' Public oUser As CurrentUserClass.Currentuser > ' oUser.LastName=dr.GetValue(3) > ' oUser.FirstName=dr.GetValue(4) > Structure Currentuser > Public FirstName As String > Public LastName As String > Public UserID As Integer > Public UserName As String > Public LoginTime As String > Public Workstation As String > Public InactivityTimer As Boolean > Public InactivityMins As Integer > Public supervisor As Boolean > End Structure >End Class >