how do I make pictures move randomly across the screen?

[kedaman]

Here's some cooler effects, random controlled direction
Use a image control image1, modify it for your needs

Option Explicit
Private Sub Form_Activate()
Dim x As Single, y As Single, velocity As Single, angle As Single, vangle As Single
    velocity = 2
    angle = Rnd * 6.283
    x = image1.Left: y = image1.Top
    
    Do
        If Rnd < 0.1 Then vangle = (Rnd - 0.5) * 0.5 'Change direction velocity randomly 10%chance
        angle = angle + (vangle + 6.283) Mod 6.283 'change direction
        x = x + Cos(angle) * velocity 'move position
        y = y + Sin(angle) * velocity
        image1.Move x, y 'move image
        DoEvents 'threading
    Loop While Forms.Count or yourchoise
End Sub