Visual basik 6. не могу сделать программу. (тема графика, движение тел)

Как сделать, чтобы черная точка двигалась по экрану, когда нажимаешь кнопки: вправо, влево, вверх, вниз?
Моя программа:
Private Sub Command1_Click()
x = Int(Rnd() * 5500)
y = Int(Rnd() * 5500)
Picture1.Circle (2750, 2750), 1500, RGB(0, 0, 0)
Picture1.Line (2720, 2720)-(2780, 2780), RGB(255, 0, 0), BF
Picture1.Line (x, y)-(x + 30, y + 30), RGB(0, 0, 0), BF
End Sub
Private Sub Command3_Click()
z = y + 10
End Sub
Private Sub Command4_Click()
z = y - 10
End Sub
Private Sub Command5_Click()
k = x - 10
End Sub
Private Sub Command6_Click()
k = x + 10
End Sub
Private Sub Command2_Click()
Picture1.Line (k, z)-(k + 30, z + 30), RGB(0, 0, 0), BF
End Sub