'Do not specify the size when doing parameters.
'Inclass as follows (Resultcir () as single) MSGBOX Ubound (Resultcir) Resultcir (2) = 12345END SUB
'Window in the window: private submmand1_click () DIM A (9) AS Singledim aa as new class1aa.run a () msgbox a (2) End Sub