Sub GridHisto_Activate (iRow As Integer, iCol As Integer, iValue As Integer)
Dim Ret%
Dim s$
Dim sIdModel$
Dim z%

If iRow > 0 And iCol = 0 Then
    If iValue = 1 Then
	sIdModel = GetCharByIndice(CStr(cba.Text), Chr$(9), 2)
	If sIdModel <> "" And sIdModel <> "0.0" Then
	    Ret = OPEGetRapByModel(sIdModel)
	    If Ret = True Then
		GridHisto.Col = 1
		s = GridHisto.Text
		GridHisto.Col = 2
		s = s + " " + GridHisto.Text
		LbBB(1).Caption = s
		Ret = OPEShowBB(sIdModel)
		Exit Sub
	    End If
	End If
    Else
	Ret = XasUserSetProperties(CelBBOn, 139, z)
	If z = 1 Then
	    Ret = XasUserSetProperties(FrmMain.CelBBOn, 139, 0)
	    Ret = XasUserSetProperties(FrmMain.CelBB, 18, 1)
	End If
	Ret = OPEClearIFrame(0)
    End If
End If
 

 
End Sub