Vb.net 如何获取登录用户的用户名？

如何获取loggedin用户的userid？？是否有用于在windows窗体中获取用户ID的命令使用此命令获取登录的用户名：

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Dim strsql As String = "select UserID from tGNLoginuser where userID=" & UserID
    UserID = DBH.getResult(strsql) ''library for executing query
    clearData()
End Sub

还有：

Environment.UserName

它返回表示当前Windows用户的WindowsIdentity对象

---

您是否使用登录表单？这取决于用户登录系统时您将ID存储在何处。

WindowsIdentity.GetCurrent