Beaker #1 The Type objects are global but the pointers to them are not (unless you declare them as such). Global B.Ball = New Ball Function Check_Ball() If B\x>400 Then B\direction_x=-1 End Function