问个难的~如何制作透明时钟

用VB嘛。。是好难啊。。
不过还好。。。出来了。。透明的时英钟

代码如下，直接复制就可以了。

'/////////////////////////////////
'小闹钟示例
'
'在窗体中添加一个timer控件，将interval设为1000以下。
'////////////////////////////////

option explicit

const pi = 3.1415926
dim basex as integer, basey as integer, r as integer
dim r1 as integer, r2 as integer, r3 as integer

private sub form_load()
me.scalemode = 3
me.autoredraw = true

if me.width < 3000 then me.width = 3000
if me.height < 3000 then me.height = 3000

end sub

private sub init()
dim i as integer

basex = me.scalewidth / 2
basey = me.scaleheight / 2

r = iif(basex > basey, basey * 0.8, basey * 0.8)
r1 = r * 0.2
r2 = r * 0.1
r3 = r * 0.05

for i = 0 to 360 step 6

if i mod 30 = 0 then '时