Code:
Private Sub Openning(f As [BYTE]**, M__1 As Integer, N__2 As Integer, B As [BYTE]**, m__3 As Integer, n__4 As Integer, _
g As [BYTE]**)
Dim temp As [BYTE]**
temp = DirectCast(Alloc2D(M__1, N__2, sizeof([BYTE])), [BYTE]**)
Erosion(f, M__1, N__2, B, m__3, n__4, _
temp, [FALSE])
Dilation(temp, M__1, N__2, B, m__3, n__4, _
g, [FALSE])
Free2D(DirectCast(temp, System.Void**))
Return
End Sub