This sample again uses the GetWindowLong API call and the GWL_STYLE constant.
Private Declare Function _ GetWindowLong _ Lib "user32" Alias _ "GetWindowLongA" (ByVal hWnd As Long, _ ByVal nIndex As Long) As Long Private Const GWL_STYLE As Long = (-16) Private Const ES_READONLY As Long = &H800 Private MyStyle As Long Private Sub Command1_Click() Text1.Locked = Not Text1.Locked End Sub Private Sub Command2_Click() MyStyle = GetWindowLong(Text1.hWnd, _ GWL_STYLE) If MyStyle And ES_READONLY Then MsgBox "Text Box is Locked" Else MsgBox "Text Box is Unlocked" End If End Sub