Private Sub Timer1_Timer()
  <font color=green>' Picture1: von links nach rechts</font>
  With Picture1
    If .Left + .Width > Me.ScaleWidth Then .Left = 0
    .Left = .Left + 30
  End With
 
  <font color=green>' Picture2: von oben nach unten</font>
  With Picture2
    If .Top + .Height > Me.ScaleHeight Then .Top = 0
    .Top = .Top + 30
  End With
End Sub

Private Sub Form_Load()
  Timer1.Interval = 100
End Sub