PRB: Cannot Pass Parameters as Float ByVal to VB 4.0 Events

MORE INFORMATION

Sample Code in the Bind OLE Custom Control

void CBindCtrl::OnLButtonUp(UINT nFlags, CPoint point)
{
// TODO: Add your message handler code here and/or call default

   float fHH = 100.9f ;

// Floatbug is an event in the OCX
    FireFloatbug(&fHH) ;

   COleControl::OnLButtonUp(nFlags, point);
}
				

Sample Code in the Bind OLE Custom Control Event in Visual Basic 4.0

Private Sub Bind1_Floatbug(fTmp As Single)
   MsgBox CStr(fTmp)
End Sub