Private Sub Form_Activate()
 
Dim XPos%, YPos%, XRi%, YRi%
 
XPos = 0
YPos = 0
XRi = 1: YRi = 1
Me.ScaleMode = vbPixels
With Image1
  .ZOrder
  Do
    .Move XPos, YPos
    XPos = XPos + XRi
    YPos = YPos + YRi
    If XPos <= 0 Or XPos >= Me.ScaleWidth - .Width Then XRi = -XRi
    If YPos <= 0 Or YPos >= Me.ScaleHeight - .Height Then YRi = -YRi
    DoEvents
  Loop
End With
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  End
End Sub

With Me
  .ScaleMode = vbPixels
  .AutoRedraw = True
  .PaintPicture LoadPicture("C:\EinBild.bmp"), 0, 0, .ScaleWidth, .ScaleHeight
  Set .Picture = .Image
  .Cls
  .AutoRedraw = False
End With

Gruss,

Zardoz