VB.NET 向EXE发送及接受参数值

Public Class Form1
    Private Shared Dcomm() As String = Nothing
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
            MsgBox(System.Reflection.Assembly.GetExecutingAssembly.Location.ToString)
            Shell(System.Reflection.Assembly.GetExecutingAssembly.Location.ToString & " 123455")'发送值
            End
        End If
    End Sub
    Public Shared Sub Main(ByVal args() As String)
        Dcomm = args
        MsgBox(_comm) '接受值
    End Sub
End Class