什么原因我的picture不会动
Private Sub Picture1_KeyDown()
Select Case Keycode
   case 37
    picture1.left = picture1.left-50
   case 38
    picture1.top = picture1.top -50
  End Select
End Sub
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()