在 Visual Basic 6.0 (VB6) 中，当你遇到“过程参数 arr() As Byte 不能用 ByVal”的错误时，通常是因为你在尝试将一个数组作为参数传递给一个子程序或函数时使用了 ByVal 关键字。在 VB6 中，数组默认是通过引用传递的，这意味着如果你想要通过值传递（即复制整个数组而不是传递其引用），你不能直接使用 ByVal 关键字。

可以直接使用：

Private Sub s_1(arr() As Byte)

End Sub