Question

vb能不能在控件中设置代码使其自动在窗口中移动？强调一下是在控件中设置代码

我把实际问题列出来吧，我先新建一用户控件，在上面放一个Image,一个Timer，设定Timer1.Interval = 20，Timer1.Enabled = False，并输入以下代码：
Public Property Get Moving() As Boolean
Moving = Timer1.Enabled
End Property

Public Property Let Moving(ByVal Moving As Boolean)
Timer1.Enabled = Moving
End Property

Private Sub Timer1_Timer()

End Sub

然后在窗口中插入此用户控件，并在窗口中输入代码：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Then
UserControl11.Moving = True
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
UserControl11.Moving = False
End Sub

这样一来就很清楚了，这是一个在按下键盘时使控件自动移动的程序，但Timer部分不知怎么编，因为在控件中Usercontrol对象没有Left和Top的属性，也没有Move的方法，故请教各位大侠如何编写Timer部分，或用别的手段达到修改控件的某一属性值就能使其移动的方法，谢谢了！

Answer 1

能
可以在达到一定条件的情况下自动,比如时间什么的.

写代码你也得给我要移动的条件才行啊.

你的意思是不是按方向键然后移动控件啊

你这个没有必要用时钟控件啊,用了反倒麻烦,自定义的控件是有TOP和LEFT属性MOVE方法确实没有.
不过想要移动只要改变他的属性就可以了在每次按方向键的时候都对应的改变TOP或者LEFT属性就行了 比如按方向键UP 就UserControl11.TOP= UserControl11.TOP + 200 这样不就完了嘛

要是用时钟控件按你想法去写这个程序简直就是南辕北辙么.
给你推荐一个简单的方法,你分别写4个方法,MoveUp(),MoveDown(),MoveLeft(),MoveRight(),这4个方法,当按不同的方向键时就调用不同的方法,方法里的具体内容就可以仿照我上边的列子写.

Answer 2

可以实现。用控件的keypress属性接受键盘上的值。
然后根据键值设置top和left值。