Option Explicit
 
Dim bMoveLeft As Boolean

Private Sub Form_Load()
  bMoveLeft = False
  Timer1.Interval = 100
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
  Dim nLeft As Single
 
  nLeft = Image1.Left
 
  With Image1
    If bMoveLeft Then
      ' nach links bewegen
      nLeft = nLeft - 30
      If nLeft < 0 Then
        nLeft = 0
        bMoveLeft = False
      End If
    Else
      ' nach rechts bewegen
      nLeft = nLeft + 30
      If nLeft + .Width > Picture1.ScaleWidth Then
        nLeft = Picture1.ScaleWidth - .Width
        bMoveLeft = True
      End If
    End If
 
    .Left = nLeft
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de