Public Event CellClickButton(ByVal sender As DataGridViewCell, _
	ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)

Private Sub LboxGrid_CellContentClick(ByVal sender As System.Object, _
 ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles MyBase.CellContentClick

	If TypeOf Me.Columns(e.ColumnIndex) Is DataGridViewButtonColumn Then
		If e.RowIndex <> -1 Then
			RaiseEvent CellClickButton(Me.CurrentCell, e)
		Else
			RaiseEvent CellClickButtonHeader(Me.CurrentCell, e)
		End If
	End If

	If TypeOf Me.Columns(e.ColumnIndex) Is DataGridViewLinkColumn Then
		If e.RowIndex <> -1 Then
			RaiseEvent CellClickLink(Me.CurrentCell, e)
		Else
			RaiseEvent CellClickLinkHeader(Me.CurrentCell, e)
		End If
	End If

End Sub

' ******************************************************
' セル内のボタンがクリックされた
' ******************************************************
Private Sub LboxGrid1_CellClickButton(ByVal sender As System.Windows.Forms.DataGridViewCell, _
ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles LboxGrid1.CellClickButton

	MessageBox.Show(sender.Value & "|" & sender.Tag)

End Sub