Thank jmcilhinney for your advice. ... I found the solution...
Private mRand As New Random
Private rndMatrix As Integer(,)
Public Sub BuildMatrix(rows As Integer, columns As Integer)
ReDim rndMatrix(rows, columns)
For x = 0 To rows
Dim valu = mRand.Next(0, Integer.MaxValue)
For y = 0 To columns
rndMatrix(x, y) = ((valu >> y) And &H1)
Console.Write(String.Format("{0} ", rndMatrix(x, y)))
Next
Console.Write(Environment.NewLine)
Next
End Sub