SubCommand1_Click() MsgBoxtext1.Text EndSub SubCommand2_Click() End EndSub SubForm_Load() Show text1.SetFocus hand%=getfocus() flag&.=getwindowlong(hand%,STYLE)OrPASS flag&.=setwindowlong(hand%,STYLE,flag&.) flag&.=sendmessage(hand%,PASS-CHAR,Asc(“*”),0&.) End Sub