' Controls: 1 * Image, 1 * Picturebox, 1 * Button
Private Breite&, Hoehe&, Bild1 As StdPicture
 
Private Sub Form_Load()
 
  Set Bild1 = LoadPicture("C:\EinBild.jpeg")
  Me.ScaleMode = vbPixels
  Breite = CLng(Me.ScaleX(Bild1.Width, vbHimetric))
  Hoehe = CLng(Me.ScaleY(Bild1.Height, vbHimetric))
  Image1.Stretch = False
  With Picture1
    .Visible = False
    .ScaleMode = vbPixels
    .AutoRedraw = True
    .BorderStyle = vbBSNone
  End With
  Randomize
  Call Command1_Click
 
End Sub
 
Private Sub Command1_Click()
 
  With Picture1
    .Move 0, 0, 30 + Int(Rnd * (Breite - 30)), 30 + Int(Rnd * (Hoehe - 30))
    .Cls
    .PaintPicture Bild1, 0, 0
    Set Image1.Picture = .Image
    .Cls
  End With
 
End Sub

Gruss,

Zardoz

Beitrag wurde zuletzt am 30.09.10 um 19:42:46 editiert.