求VB6.0 下代码在vb.net 下的写法 lRes = CryptEncrypt(hKey, 0&, 1, 0,ByVal 0& , lBufLen, 0) 其中 ByVal 0& 提示应为表达式，不知到如何修改？

Res = CryptDeriveKey(hProv, ENCALGORITHM, hHash, 0, hKey)
MsgBox("D:" & lRes)
f lRes <> 0 Then
lBufLen = UBound(data) - LBound(data) + 1
lDataLen = lBufLen
lRes = CryptEncrypt(hKey, 0&, 1, 0, byval 0& , lBufLen, 0)

最后一行，byval 0& 处提示错误（提示为：应为表达式）
环境：vb.net

lRes = CryptEncrypt(hKey, 0&, 1, 0, 0& , lBufLen, 0)
去掉 ByVal 看看