Visual Basic - Ayuda con funcion en Visual Basic

Primero que todo, muchas gracias de antemano. Mira mi problema es el siguiente:
tengo una matriz binaria de 10x10 ( o sea llena de 1s y 0s); necesito crear un procedimiento o funcion que me llene otra matriz de la misma dimension pero de la siguiente manera:
si estoy en la posicion 1,1 de la primera matriz, necesito que me ponga en la posicion 1,1 de la segunda matriz la suma de los "unos" que se encuentren en las ocho posiciones vecinas de la posicion 1,1 de la primera matriz. El mismo procedimiento se seguiría con las demas posiciones de la matriz de tal manera que al final, la segunda matriz me indique en cada posicion el total de "numeros uno" que existen al rededor de esa misma posicion pero en la matriz uno.

Tal como entiendo el problema me lo estoy imaginando para el juego de los submarinos, es decir un tablero de 10x10 y lo que quieres es que la matriz segunda contenga la suma de los 8 cuadrados que rodean a uno dado. Si es asi la rutima seria:
si la matriz 1 es A(0 to 11,0 to 11) y la segunda B(1 to 10,1 to 10)
for i=1 to 10
for j=1 to 10
b(i,j)=b(i-1,j-1)+b(i-1,j)+b(i-1,j+1)+b(i,j-1)+b(i,j+1)+b(i+1,j-1)+b(i+1,j)+b(i+1,j+1)
next
next
al estar la matriz A dimensionada de 0 a 11 no da error, logicamente los valores correspondientes al 0 y al 11 seran siempre cero.
la duda que tengo es los valores de la esquina que en ese caso solo suma los 3 contiguos. Si siempre tienen que ser 8 las casillas que ha de sumar entonces no veo como porque en el caso de la casilla 1,2 ¿cuales son las 8 mas proximas???

Maro,
muhas gracias por tu respuesta, de hecho no es para ningun juego de submarinos sino mas bien para un programa llamado el juego de la vida. Lo que me enviaste si me si sirve porque las filas primera y ultima no se toman en cuenta sino las del centro; igualmente con las columnas primera y ultima.
Muchas gracias de nuevo. Por cierto, ud no ha tiene ese programa? El juego de la vida?
Gracias nuevamente.
Saludos.