VB.NET可选参数的默认值必须是一个常数表达式。
创新互联建站服务项目包括鹤山网站建设、鹤山网站制作、鹤山网页制作以及鹤山网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，鹤山网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到鹤山省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
过程定义中跟在可选参数后的每个参数也都必须是可选的。
下面的语法显示带VB.NET可选参数的过程声明：
Sub sub name（ByVal parameter 1 As data type 1,
Optional ByVal parameter 2 As data type 2 = default value）
调用带VB.NET可选参数的过程
过程在运行时无法检测到给定的参数是否已被省略，或者调用代码是否已显式提供默认值。如果需要弄清楚这一点，可以设置一个不可能的值作为默认值。下面的过程定义了可选参数 office,并测试其默认值 QJZ 以查看它在调用中是否已被省略：
Visual Basic
Sub notify（ByVal company As String, Optional ByVal office As String = "QJZ"）
If office = "QJZ" Then
Debug.WriteLine（"office not supplied -- using Headquarters"）
office = "Headquarters" End If
' Insert code to notify headquarters or specified office.
End Sub
如果可选参数是像 String 这样的引用类型，只要它不是该变量所预期的值，就可以使用 Nothing 作为默认值。
VB.NET可选参数和重载
定义带可选参数的过程的另一种方法是使用重载。如果有一个可选参数，可以定义过程的两个重载版本，一个接受此参数，另一个则不带参数。此方法随可选参数数目的增加而变得更复杂。然而，这样做的优点是可以完全确定调用程序是否提供了每个VB.NET可选参数。
sub是可以有参数的，但是是没有返回值的。
你可以用function
如
Function add(ByVal a As Integer, ByVal b As Integer)
add = a + b
End Function
a = add(1,1) 这样a = 2
你的if语句有点问题，只要ListView1有选中的，则l一直等于0。if...elseif....elseif...else...end if ，这种形式，它是从上往下逐个判断条件是否成立，只要成立，它不会再向下去判断后面的条件，而是直接到end if。所以你最好描述一下你要实现什么功能，才能帮你修改代码
如果不用byref传址方式，而是byval传值方式调用参数，就要用到function来实现，sub是不行的。function的返回值可以是一个数组，只包含两个元素，或者返回一个字符串，形式类似 a|b，然后接收到字符串了以后分割一下，就可以得到交换后的值了。其实这样反而麻烦，还不如在程序内部调用。