f cD.VBChooseColor(lColor, FullOpen:=True, Owner:=Me.hWnd) Then
         grdThis.CellBackColor(grdThis.SelectedRow, grdThis.SelectedCol) =
          lColor
      End If
   End Select
End Sub

''' &lt;summary&gt;
''' Fired when the demo menu subitems are clicked.
''' cell.
''' &lt;/summary&gt;
''' &lt;param name="Index"&gt;Index of clicked menu item.&lt;/param&gt;
Private Sub mnuDemo_Click(Index As Integer)

   ' Show other demonstration forms:
   Select Case Index
   Case 0
      frmOutlookDemo.Show
   Case