When Sub Main below is executed, what will be displayed by the two message box?

Sub Main() Dim X As Short = 10 Dim Y As Short = 20

Call SomeWeirdMath(X,Y)

MsgBox (X) MsgBox (Y)

End Sub

Sub SomeWeirdMath(ByRef P As Short, ByVal Q As Short)

P = P*Q

Q = Q*P

End Sub