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 

このメッセージボックスで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