 = ilsIcons.ListImages.Item(sKey).Index - 1
End Function


Private Sub mnuFile_Click(Index As Integer)
   If (Index = 0) Then
      Dim f As frmMDIChild
      Set f = New frmMDIChild
      f.Show
   End If
   If (Index = 3) Then
      Unload Me
   End If
End Sub

</pre><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p></td><td class="rightbar" valign="top" bgcolor="#C2BEB1">
<!-- No right bar content currently defined -->
</td></tr><tr class="footer"><td></td>
<td>
<p class="cent