vb6.0程序, 求代码,答:BEnd SubPrivate Sub Command3_Click()Dim i As IntegerFor i = 200 To 1500 Me.PSet (1500, i), vbYellow Me.PSet (1500 + 1500, i), vbYellowNextFor i = 1500 To 3000 Me.PSet (i, 200), vbYellow Me.PSet (i, 1500), vbYellowNextEnd SubPrivate Sub Form_Load()InitGDIPlus...