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
...
Сейчас этот форум просматривают: Google-бот, SemrushBot и гости: 49