Code

Dim t As table
Set t = fcx.CreateTable(0, 0, 300, 300)
t.SetRowHeight 0, 150
t.SetColWidth 0, 150
t.CellPicture(0, 0) = LoadPicture("D:\Images\1.jpg")
t.CellVariantTag(0, 0) = LoadPicture("D:\Images\2.jpg")
t.SetText 0, 0, "click"

Private Sub fcx_TableCellClicked(ByVal table As FLOWCHARTLibCtl.ITableItem, ByVal button As FLOWCHARTLibCtl.EMouseButton, ByVal row As Long, ByVal col As Long)
	Dim temp As StdPicture
	Set temp = table.CellPicture(col, row)
	table.CellPicture(col, row) = table.CellVariantTag(col, row)
	table.CellVariantTag(col, row) = temp
End Sub
 

Code

Private Sub fcx_MouseMove(ByVal docX As Long, ByVal docY As Long)
	Dim t As Table
	Set t = fcx.GetTableAt(docX, docY)
	If Not t Is Nothing Then
		Dim col As Integer
		Dim row As Integer
		col = t.ColumnFromPoint(docX, docY)
		row = t.RowFromPoint(docX, docY)
		If col > -1 And row > -1 Then
			t.ToolTip = Str(col) + " " + Str(row)
		End If
	End If
End Sub

Private Sub Form_Load()
	fcx.FireMouseMove = True
	fcx.ShowToolTips = True
	...
End Sub