VB源代码动态时钟

Dimx0AsSingleDimy0AsSinglePrivateSubForm_Load()WithForm1.Width=3000.Height=3100.BackColor=vbBlack.Caption="动态时钟"EndWithx0=1430y0=1290WithLine1.X1=x0.Y1=y0EndWithWithLine2.X1=x0.Y1=y0EndWith