'X axis components of rotation
    vData(0) = 1
    vData(1) = 0
    vData(2) = 0
    'Y axis components of rotation
    vData(3) = 0
    vData(4) = 1
    vData(5) = 0
    'Z axis components of rotation
    vData(6) = 0
    vData(7) = 0
    vData(8) = 1







    'Modify transform data
    Dim deg As Double
    Dim rad_per_deg As Double
    rad_per_deg = 4 * Atn(1) / 180
    deg = 90
    
    'X axis components of rotation
    vData(0) = Round(Cos(deg * rad_per_deg), 4)
    vData(1) = Round(-1 * Sin(deg * rad_per_deg), 4)
    vData(2) = 0
    'Y axis components of rotation
    vData(3) = Round(Sin(deg * rad_per_deg), 4)
    vData(4) = Round(Cos(deg * rad_per_deg), 4)
    vData(5) = 0
    'Z axis components of rotation
    vData(6) = 0
    vData(7) = 0
    vData(8) = 1
    'translation
    vData(9) = 0
    vData(10) = 0
    vData(11) = 0