说明: Dim a As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Form_Click() Cls Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Line (1000, 1000)-(2500, 2500), QBColor(Int(Rnd * 16)), BF End Sub
<linzhongguier> 上传 | 大小:604byte