Private Sub Picture1_KeyUp(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case 39 Picture1.Move Picture1.Left + 100 Case 37 Picture1.Move Picture1.Left - 100 Case 38 Picture1.Move Picture1.Left, Picture1.Top - 100 Case 40 Picture1.Move Picture1.Left, Picture1.Top + 100 End Select End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024