Public Function m3MatrixTranslate(ByRef m As m3Matrix, ByVal tx As Double, ByVal ty As Double, ByVal tz As Double) As m3Matrix
    m.m41 = m.m41 + tx
    m.m42 = m.m42 + ty
    m.m43 = m.m43 + tz
m3MatrixTranslate = m
End Function