这个代码是我慢慢写出来的，有些代码是靠同学帮我完善，不知道大家觉得怎样。
可以自己试着运行。



Private WithEvents Timer1 As Timer
Private Sub Form_Load()
Set Timer1 = Controls.Add("vb.timer", "Timer1")
'添加计时器
Timer1.Enabled = True: Timer1.Interval = 1
Me.AutoRedraw = True: Me.BackColor = 0
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
End Sub

Private Sub Form_DblClick()
End
E ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

这是怎么样的雷达??

有没有范例的程式可以提共看看?

下面是引用 z2352671 于 2012-06-24 01:23 发表的 :
这是怎么样的雷达??

有没有范例的程式可以提共看看?

扫描的雷达，会出现一个点，像CS一样，