请教大侠们一个关于VB的小问题~~~~~~~~

为什么这样写了，还不能画啊~~~~~~~~
Dim PaintNow As Boolean
Private Sub Form_DblClick()
Cls
End Sub
Private Sub Form_Load()
DrawWidth = 2
ForeColor = RGB(0, 0, 255)
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
PaintNow = ture
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If PaintNow Then
PSet (X, Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
PaintNow = False
End Sub

请教关于VB.NET 的一个小问题 一个VB小问题请教 关于VB的一个小问题 一个关于VB的小问题. 关于VB的一个小问题. 一个关于VB编程的小问题？ 问一个关于VB的小问题？ 一个关于VB的小问题 关于VB的一个验证小问题 求助关于VB的一个小问题