Labels:crt screen | dialog box | monitor | window OCR: VBShare File View Help Unformatted Code Formatted Code Private Declare Function ShellExecute ibshell32.d Alias"ShellExecuteA" ByVal I hwnd As Long ByVal IpOperation As Strir HTML Private Declare Sub Cop yMemor kemel32 Alias RtlMoveMemory pDest pSource Any BvVal ByteLen HEAD Declare Function GetProp Lib "user32" Alias "GetPropA BvVal PuML As Long ByVal IpString As String) As Lonq STITLE >mo JMainTITLE Decla Consi Code Preview modMain Public Public vpe Left Top ASL "shel132 .dl1 Alias "She llExecute" (ByVal hwnc AS Long, ByVal lpOperat ion Private Dec lare Funct ion ShellExecute Lib Righ Bottor Pr ivate Dec lare Sub CopvMemory Lib 1 ias "RtlMoveMemory" (pDest Any pSource As Any ByVal ByteLen Lor End Type Pri ivate Dec lare Funct ion GetProp Lib "user32" Alias GetProp ByVal hwnd Long ByVal lp ...
