Se non ho capito male, ti basta scrivere



Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
If Environment.GetCommandLineArgs().Length > 1 Then
...