dim r as integer
r=int(1)*3
if r = 0 then picutre1.Top= picture1.top -1
if r = 1 then picutre1.Top= picture1.top +1
if r = 2 then picutre1.left= picture1.left +1
if r = 2 then picutre1.left= picture1.left -1

Private Sub Picture1_Click()
    MsgBox "Sie haben gewonnen"
End Sub