UCHAR ucHorzData[1280 * 2];
UINT nHorzSize = 1280;
for(UINT i = 0; i < 512; i++)
{
memcpy(ucHorzData, m_CapInfo.Buffer + i * nHorzSize, nHorzSize);
memcpy(m_CapInfo.Buffer + i * nHorzSize, m_CapInfo.Buffer + (512 - 1 - i) * nHorzSize, nHorzSize);
memcpy(m_CapInfo.Buffer + (512 - 1 - i) * nHorzSize, ucHorzData, nHorzSize);
}我转成VB的以下代码,总提示类型不匹配。        Dim ucHorzData(2560) As Byte
        Dim nHorzSize  As Integer
         nHorzSize = 1280
         Dim i As Integer
            For i = 0 To i < 512
            CopyMemory ucHorzData, m_CapInfo.Buffer + i * nHorzSize, nHorzSize
            CopyMemory m_CapInfo.Buffer + i * nHorzSize, m_CapInfo.Buffer + (512 - 1 - i) * nHorzSize, nHorzSize
            CopyMemory m_CapInfo.Buffer + (512 - 1 - i) * nHorzSize, ucHorzData, nHorzSize
            Next