Несколько ЧекБоксов в ряд...

[cashman]

Кто-нибудт знает как сделать так, чтобы...
если Несколько ЧекБоксов в ряд...
встаешь на один из них мышкой (удерживаешь клавишу), начинаешь вести курсором на ЧекБоксами, а они при наведении меняют свое значение на противоположное "Первому ЧекБоксу" на котором была нажата клавиша мышки...
Зарание благодарен...

[tyomitch]

Задай всем чекбоксам имя Check1

Код: Выделить всё

Option Explicit

Dim ChangeTo As Integer
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Check1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then _
  ChangeTo = 1 - Check1(Index).Value: _
  Check1(Index).Value = ChangeTo: _
  ReleaseCapture
End Sub

Private Sub Check1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then _
  Check1(Index).Value = ChangeTo
End Sub