Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
        Shell(My.Application.Info.DirectoryPath & "\" & _
        My.Application.Info.AssemblyName & ".exe " & _
        My.Application.Info.DirectoryPath, AppWinStyle.NormalFocus, False, -1)
        End
 
        Handles Me.Load()
        Me.Text = Command()
    End Sub
End Class