Ayuda con unos codigos por favor !

[pkj]

Creo que esto es lo que quieres hacer:

Código :

Private sub PonColor()
  If imgCohete.Top < 50 Then frmCielo.BackColor = vbBlack
  If imgCohete.Top > 50 And imgCohete.Top < 100 Then frmCielo.BackColor = vbBlue
  If imgCohete.Top > 100 Then frmCielo.BackColor = vbCyan
End Sub
 
Private Sub cmdAscender_Click()
  imgCohete.Top = imgCohete.Top - 10
  PonColor
End Sub
 
Private Sub cmdDescender_Click()
  imgCohete.Top = imgCohete.Top + 10
  PonColor
End Sub
 

Saludos