從ApplicationEvents到Form的變量？

Question

我想在啓動時根據Windows用戶名在ComboBox中設置一個值。

這是我有在ApplicationEvents.vb的：

Partial Friend Class MyApplication 

    Public Sub MyApplication_Startup(sender As Object, e As StartupEventArgs) Handles Me.Startup 
     Dim sUserNameFull As String 
     If Environment.UserName = "JohnD" Then 
      sUserNameFull = "John Dean" 
     End If 

    End Sub 
End Class 

這就是我的Form1.vb的：

Public Class DeskApp 
Public Shared ReadOnly Property UserName As String 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

    MsgBox(ApplicationEvents.sUserNameFull) 

End Sub 
End Class 

如何在這個MSGBOX顯示來自AppEvents變量？

最終如何將該值「推」到ComboBox1中？

我想這些都是基礎，但我真的迷失在這裏。

謝謝！

Answer 1

以下是我將如何做到這一點。

Imports Microsoft.VisualBasic.ApplicationServices 
Namespace My 
    Partial Friend Class MyApplication 
     Private mUserName As String 
     Public ReadOnly Property UserFullName As String 
      Get 
       Return mUserName 
      End Get 
     End Property 

     Private Sub MyApplication_Startup(
      sender As Object, e As StartupEventArgs) Handles Me.Startup 

      If Environment.UserName = "JohnD" Then 
       mUserName = "John Dean" 
      End If 
     End Sub 
    End Class 
End Namespace 

表單代碼

Public Class Form1 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     MsgBox(My.Application.UserFullName) 
    End Sub 
End Class