Form1 Demo for MHELP.VBX Form1 OKButton List1 OKButton_Click ButtonhWnd MhCtrlHwnd OkButton List1 Form_Click @ Form_Load StringSeg SStringOffset SegHex OffHex StringOffset PeekResult- MhPeekByte8 AddItme MhPokeByteK Form1 LongResult SSegAddr SSegAdd TestVal IntSeg VarSeg IntOff VarPtr Result VarSegPtr Form_Load Demonstrate MhCtrlHwndc The hWnd for the 'OK' button is" Getting a string's address This is a string Lin$ = " The segmented address for Lin$ is Using single call, same value is Get address again, in case moveda Demonstrate PEEK and POKE Peek result from first char of string is " Using MhPokeByte, changed first char of Lin$ to Lin$ = " Get address for non-string variable The segmented address for TestVal% is Using single call, same value is INP and OUT *** Following code is Rem'd so does not execute Result% = Inp(&H21) ' Interrupt mask Out &H21, Result%1 OKButton_Click