Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
    if x > 10 and x < 100 and y > 90 and y < 200 then
        Picture1.Picture = LoadPicture("C:\neues Bild.bmp")
    End if
end sub