Option ExplicitPrivate Sub Form_Activate () With Form1.ScaleWidth = 100.ScaleHeight = 100End WithForm1.CurrentX = 50Form1.CurrentY = 50Print "click Form" End SubPrivate Sub Form_Click () Dim i As LongFor i = 0 To 50 Step 5 Line (50 - i, 50 - i) - (50 i, 50 i), B Call Sleep (0.05) 'Pause 0.05 seconds form1.clsnext IEND SUBPRIVATE SUB SLEEP (Delay As Single)' Time Sub Process DIM StartTime As SingleStartTime = Timerdo Until Timer - StartTime> DelayLoopend Sub
