そのぺーじは、見ているのですが

dim 画像(2) as image
画像(0)=picturebox1.image
画像(1)=picturebox2.image
画像(2)=picturebox3.image
SaveMultiTiff("マルチ.tif", 画像, "CompressionLZW")

これで実行すると、次のエラーになります
型 'System.Drawing.Image[]' のオブジェクトを型 'System.Drawing.Bitmap[]' にキャストできません。