Public Sub New(ByVal Mat As Matrix2D)
matrix.CreateInstance(GetType(Double), 3, 3)
Dim i As Integer
For i = matrix.GetLowerBound(0) To matrix.GetUpperBound(0)
Dim j As Integer
For j = matrix.GetLowerBound(1) To matrix.GetUpperBound(1)
matrix.SetValue(Mat.matrix.GetValue(i, j), i, j)
Next j
Next i
End Subörnek olarak bunun gibi kodların anlaşılır bir şekilde anlatımını yaptırmak istiyoruz. Hangi kod tam olarak ne yapıyor gibi..Ücretli yapabilecek arkadaşlar PM atsın. Lütfen işinin ehli bir arkadaş olursa sevinirim.