Ciao lofcarlos.
Inserisci in un nuovo form:
- 1 tasto
- 2 timer
- 1 casella immagine
E quindi...
codice:
Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = False
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Timer1.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Form_Load()
Form1.KeyPreview = True
End Sub
Private Sub Timer1_Timer()
If Image1.Left < 0 Or Image1.Left = 0 Then
Image1.Left = Form1.Width
End If
Image1.Left = Image1.Left - 100
End Sub
Private Sub Timer2_Timer()
If Image1.Top < 0 Or Image1.Top = 0 Then
Image1.Top = Form1.Height
End If
Image1.Top = Image1.Top - 100
End Sub
In questo modo l'immagine si sposta a sinistra se viene premuto il tasto (Command1) e in alto se viene premuto un tasto (da tastiera).