Question

VB 中怎样让一个图片移动 只要启动图片就会移动 随意方向

Answer 1

满足了你所有的要求，窗体名字就是系统时间 启动时图片自己移动，希望能采纳
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
h = Me.Height
w = Me.Width
Image1.Top = Int(h * Rnd + 1)
Image1.Left = Int(w * Rnd + 1)
Me.Caption = Now
End Sub

Answer 2

private sub timer1_timer()
image1.top=image1.top+int(500*rnd)
image1.left=image1.left+int(500*rnd)
end sub

追问

怎样在窗体上设置一个计时器 和系统时间一样？O(∩_∩)O谢谢

追答

timer1的interval设置成1000
timer的事件里写：cls
print now

前面那个答案改一下。。。
Private Sub timer1_timer()
Randomize
Image1.Top = Image1.Top + Int(500 * Rnd - 250)
Randomize
Image1.Left = Image1.Left + Int(500 * Rnd - 250)
End Sub