Public Class Form1
    Sub main()
        Select Case Command()
            Case "-a"
                MessageBox.Show("test", "test", MessageBoxButtons.OK, _
                  MessageBoxIcon.None, MessageBoxDefaultButton.Button1)
 
        End Select
    End Sub
End Class