Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim wea(80, 80)
si = 300: sj = 300

For l = 1 To weft
For i = 1 To warp
  Print X
  If X < i * si + 100 And X > i * si - si + 100 And Y < l * sj + 100 And Y > l * sj - sj + 100 Then
    If wea(i, l) = 1 Then wea(i, l) = 0
    If wea(i, l) = 0 Then wea(i, l) = 1
  End If
  If wea(i, l) = 1 Then Form1.Line (i * si + 100, l * sj + 100)-Step(-si, -sj), QBColor(1), BF
  Print X
Next i
Next l
代码显示的是上面，想通过获取鼠标点击的坐标值再通过条件判断，画格子的，但是点的时候没有变化。完全菜的连哪里不对都不知道，求大神拯救。

[ 本帖最后由 zhengzhong13 于 2012-1-4 16:04 编辑 ]

上面的问题我解决了，但是我Private Sub Form_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)

For l = 1 To weft
For i = 1 To warp
  If X < i * si + 100 And X > i * si - si + 100 And Y < l * sj + 100 And Y > l * sj - sj + 100 Then
    Select Case wea(i, l)
    Case 1
    wea(i, l) = 0
    Case 0
    wea(i, l) = 1
    End Select
  End If
Next i
Next l
For l = 1 To weft
For i = 1 To warp
    If wea(i, l) = 1 Then Form1.Line (i * si + 100, l * sj + 100)-Step(-si, -sj), QBColor(1), BF
    If wea(i, l) = 0 Then Form1.Line (i * si + 100, l * sj + 100)-Step(-si, -sj), QBColor(1), B
Next i
Next l

For i = 0 To si * warp Step si
For j = 0 To sj * weft Step sj
  Form1.Line (i + 100, 100)-(i + 100, weft * sj + 100)
  Form1.Line (100, j + 100)-(warp * si + 100, j + 100)
Next j
Next i

End Sub
改成这样之后填充进去的方格再点的话颜色去不掉
怎样改可以实现呢？？