ࡱ>   Root Entry Fž'a CompObjnWordDocument GObjectPool@k'a@k'a~+,-./012345 FMicrosoft Word 6.0 Document MSWordDocWord.Document.69qࡱࡱ> CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCd`!d`!` d+`! d+V`!Xd@ 13LIST04.TXT Declare module-level variables used. Dim msHeightRatio As Single, msWidthRatio As Single Private Sub Form_Load() ' Scale the object to fit the control. OLE1.SizeMode = vbOLESizeZoom Display the Insert Object dialog to get an object to display. OLE1.InsertObjDlg End Sub Private Sub OLE1_Resize(HeightNew As Single, _ WidthNew As Single) ' Choose which ratio is greater. msHeightRatio = HeightNew / OLE1.Height msWidthRatio = WidthNew / OLE1.Width ' If control is big enough to contain object, don't ' display scroll bar. If msWidthRatio <= 1 And msHeightRatio <= 1 Then VScroll1.Visible = False ' Exit now. Exit Sub End If ' Use the greater ratio for the scroll bar zoom. If msHeightRatio >= msWidthRatio Then ' Set the maximum value (100%) VScroll1.Max = HeightNew ' Set the initial scroll bar position. VScroll1.Value = OLE1.Height Else ' Set the maximum value (100%) VScroll1.Max = WidthNew ' Set the initial scroll bar position. VScroll1.Value = OLE1.Width End If End Sub ' Zoom OLE control. Private Sub VScroll1_Change() ' Increase Height or Width, depending on which ' ratio is greater. If msHeightRatio >= msWidthRatio Then OLE1.Height = VScroll1.Value Else OLE1.Width = VScroll1.Value End If End Sub ࡱ_Oh+'0$ H l   D h(D:\MSOFFICE\WINWORD\TEMPLATE\NORMAL.DOT 13LIST04.TXT Russ Jacobs Russ Jacobs@ SummaryInformation(*v}v}n}v}n}d~d~n}v}n}v}n}Xu}hu}n}a@Y@ a@Microsoft Word 6.01ࡱ> ܥe3 e G       JJJJJJ TJ|?dddddddd^T8| ddddd|d  dddddd d d4<    dd2d 13LIST04.TXT Declare module-level variables used. Dim msHeightRatio As Single, msWidthRatio As Single Private Sub Form_Load() ' Scale the object to fit the control. OLE1.SizeMode = vbOLESizeZoom Display the Insert Object dialog to get an object to display. OLE1.InsertObjDlg End Sub Private Sub OLE1_Resize(HeightNew As Single, _ WidthNew As Single) ' Choose which ratio is greater. msHeightRatio = HeightNew / OLE1.Height msWidthRatio = WidthNew / OLE1.Width ' If control is big enough to contain object, don't ' display scroll bar. If msWidthRatio <= 1 And msHeightRatio <= 1 Then VScroll1.Visible = False ' Exit now. Exit Sub End If ' Use the greater ratio for the scroll bar zoom. If msHeightRatio >= msWidthRatio Then ' Set the maximum value (100%) VScroll1.Max = HeightNew ' Set the initial scroll bar position. VScroll1.Value = OLE1.Height Else ' Set the maximum value (100%) VScroll1.Max = WidthNew ' Set the initial scroll bar position. VScroll1.Value = OLE1.Width End If End Sub ' Zoom OLE control. Private Sub VScroll1_Change() ' Increase Height or Width, depending on which ' ratio is greater. If msHeightRatio >= msWidthRatio Then OLE1.Height = VScroll1.Value Else OLE1.Width = VScroll1.Value End If End Sub V  @~=dS+VtHaLh} * ^ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!- K@Normala "A@"Default Paragraph Font4o4NL  ]a c&o&C2  ]^a c*o*CX  ]^a c*o"*QQ  U]a c   2 Russ Jacobs#D:\PHALL\QUE\SEVB\WORK\13LIST04.TXT@HP LaserJet 4PLPT1:HPPCL5MSHP LaserJet 4P@gXX@MSUDNHP LaserJet 4P;d HP LaserJet 4P@gXX@MSUDNHP LaserJet 4P;d ?Times New Roman Symbol &Arial 1Courier"hyy8 13LIST04.TXT Russ Jacobs Russ Jacobsࡱ>