文件名称：vb程序点击command出现矩形 变色
文件大小：604B
文件格式：VBP
更新时间：2012-05-15 17:11:26
vb 矩形变色
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