* Main.prg Do Form MainForm Read Events * Main Form have a MS ListView Control and 2 Command buttons (Call and Exit) * Main Form is Modal * Main Form Load _VFP.AutoYield = .F. * Main Form Init ** Here the code to fill the ListView * cmdExit click Release Thisform * cmdCall Click Local o If Vartype(Thisform.oleList.Object.SelectedItem) == "O" o = NewObject( "frmCall", "myvcx.vcx" ) If Vartype(o) == "O" o.Show() If o.lOk Wait Window "OK" Else Wait Window "CANCEL" EndIf Else Wait Window "BAD" EndIf EndIfThe Class frmCall is based on a Form that contain some activeX control.