[mafia]

как рисовать вроде немного разобрался, но вот теперь возник другой вопрос: как сделать так, чтобы мышь опрашивалась почаще, а то если рисоавть тем методом, что я указал, то при резких движениях большие зазоры остаются. То есть рисовать нада по латышски
где копать?
а вот листинк проги для простого рисования на форме:

Dim risov As Boolean
Dim flag As Byte
Private Sub Command1_Click()
flag = 1
End Sub
Private Sub Command2_Click()
flag = 2
End Sub

Private Sub Command3_Click()
flag = 3
End Sub

Private Sub Command4_Click()
Cls
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
risov = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If risov = True Then
If flag = 1 Then PSet (X, Y)
If flag = 2 Then Line (X, Y)-((X - 50), (Y - 50))
If flag = 3 Then Line (X, Y)-(X - 10, Y - 100)
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
risov = False
End Sub