Private Sub TextB_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Button = 0
...
_MouseUp(...
Dim intBB as Integer
intBB = Button
Button = 0
...
..._KeyDown(...
If KeyCode = 27 Then
KeyCode = 0
Unload Me
...
Сейчас этот форум просматривают: Yandex-бот и гости: 50