При randomize timer: пишет invalid outside procedure и указывает на randomize Timer - VB

Формулировка задачи:

почему в к примеру таком коде:

Randomize Timer
Dim tm As Integer
Private Sub Timer1_Timer()
tm = tm + 1
s = Int(Rnd * 2)
If s / 2 = Int(s / 2) Then Shape1.Left = Shape1.Left + 30: Shape1.FillColor = vbMagenta Else Shape1.Top = Shape1.Top + 30: Shape1.FillColor = vbBlue
 
End Sub

vb пишет invalid outside procedure и указывает на randomize Timer

Решение задачи: «При randomize timer: пишет invalid outside procedure и указывает на randomize Timer»

textual
                            Листинг программы 
                        

                            Dim tm As IntegerPrivate 
 
private function RandTimer()
Randomize Timer
end function
 
Sub Timer1_Timer()
tm = tm + 1s = Int(Rnd * 2)If s / 2 = Int(s / 2) Then Shape1.Left = Shape1.Left + 30: Shape1.FillColor = vbMagenta Else Shape1.Top = Shape1.Top + 30: Shape1.FillColor = vbBlue
End Sub
                        