Say in your scrolling function you have 2 variables, one stores the scrolling offset (intScrollX ?) and one stores the tile offset (intTmpX ?) and a tile size of 20 pixels (must match)...

VB Code:
  1. intScrollX = intScrollX + 1
  2. If intScrollX > 20 then
  3.    'Reset scrolling offset
  4.    intScrollX = 0
  5.    'Adjust tile offset
  6.    intTmpX = intTmpX + 1
  7. Endif

Remember where you draw the map you have to add both offsets to draw it at the correct position:

VB Code:
  1. For A = 0 to MapWidth
  2. For B = 0 to MapHeight
  3.    DrawTile Map(intTmpX,intTmpY), A*TileWidth - intScrollX, B*TileHeight - intScrollY
  4. Next
  5. Next

That's all ..