Option Explicit

'Bits o parametros de estilo de la ventana:
Const WS_MAXIMIZEBOX = &H10000
Const WS_MINIMIZEBOX = &H20000
Const WS_THICKFRAME = &H40000
Const WS_SYSMENU = &H80000
Const WS_CAPTION = &HC00000
Const GWL_STYLE = (-16)

'Funciones para modificar el estilo de la ventana:
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Dim WndStyle As Long

Private Sub Command1_Click()
Dim lStyle As Long

'Guardamos los parametros actuales del estilo de la ventana para luego poder restaurarla:
WndStyle = GetWindowLong(Me.hwnd, GWL_STYLE)

'Quitamos cualquier estilo a la ventana para conseguir una ventana rectangular:
lStyle = WndStyle And Not WS_MAXIMIZEBOX And Not WS_MINIMIZEBOX And Not WS_THICKFRAME And Not WS_CAPTION
Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)

End Sub

Private Sub Command2_Click()
'Devolvemos cualquier estilo a la ventana:
Call SetWindowLong(Me.hwnd, GWL_STYLE, WndStyle)

'Oculta y muestra al instante la ventana para que se muestren los cambios. 
Me.Hide
Me.Show

End Sub

Private Sub Form_Load()
    If Form2.Visible = True Then Stop
End Sub

Private Sub Form_Load()
    Form1.Show
    Form1.Print "ERROR"
End Sub

Private Sub Form_Load()
    Data1.RecordSource = "SELECT * FROM Tabla1 WHERE numero LIKE '1*'"
    Data1.Refresh
    Text3.Text = Data1.Recordset.RecordCount
End Sub

Data1.RecordSource = "SELECT * FROM Tabla1 WHERE referencia2 LIKE '1*' or referencia1 LIKE '1*' "

Private Sub Form_Load()
    Activa
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Desactiva
End Sub

Option Explicit

Public Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Public Declare Function CallWindowProc Lib "user32" _
Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, _
ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long


Public Const GWL_WNDPROC = (-4)
Global PrevWndProc As Long

Public Sub Activa()
    PrevWndProc = SetWindowLong(Form1.Text1.hWnd, GWL_WNDPROC, AddressOf interceptar)
End Sub

Public Sub Desactiva()
  Dim temp As Long
    temp = SetWindowLong(Form1.Text1.hWnd, GWL_WNDPROC, PrevWndProc)
End Sub

Public Function interceptar(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If Msg = &H11F Then 'WM_MENUSELECT = &H11F
        If wParam = -2139062272 Then 'Es el parámetro wParam correspondiente.
            Debug.Print "Has pasado sobre -lectura de derecha a izquierda- " & Now & ""
            interceptar = True
        End If
    Else
        interceptar = CallWindowProc(PrevWndProc, hWnd, Msg, wParam, lParam)
    End If
End Function