codice:
Public Class Form1
    Function Titolo_prg(ByVal args As String) As String
        Dim Titolo As String = "Hickam"
        If args = "" Then
            Titolo = Titolo + " - " + "Senza nome"
        Else : Titolo = Titolo + " - " + args
        End If
        Return Titolo
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim reader As IO.StreamReader
        If My.Computer.FileSystem.FileExists(Command()) = True Then
            Me.Text = Titolo_prg(Command())
            reader = New IO.StreamReader(Command())
            TextBox1.Text = reader.ReadToEnd
            reader.Close()
        ElseIf My.Computer.FileSystem.FileExists(Command()) = False Then
            Me.Text = Titolo_prg(Command())
        Else
            Me.Text = Titolo_prg(Command())
            reader = New IO.StreamReader(Command())
            TextBox1.Text = reader.ReadToEnd
            reader.Close()
        End If
    End Sub
Ecco il codice.