Movimentando um objeto
A posição de um objeto é controlada pelas propriedades Left e Top. Então, para movimentar um objeto redefine-se essas propriedades. No exemple abaixo, eu movimento uma imagem pelas teclas de setas.
Código:
Private Sub Form_KeyDown( KeyCode as Integer, Shift as Integer) Select Case KeyCode Case 37 Image1.left = image1.left - 50 Case 39 image1.left = image1.left + 50 End Select
Voltar