дык, пожалуйста. покупай контрол и пользуй его, а ты о чем подумал? ))) кстати там в наборе много интересных контролов есть.

кстати, а VB ты покупал? :)

'нормальное объявление

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long

'попытка подогнать объявление под себя

Public Declare Function SendMessagebyTest Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As TCHITTESTINFO) As Long



Private Sub ttt_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

  Dim nn As TCHITTESTINFO

  num = SendMessage(ttt.hwnd, TCM_HITTEST, 0&, nn)

'ошибка - несовпадение типов

  num = SendMessageByTest(ttt.hwnd, TCM_HITTEST, 0&, nn)

'ошибка - User-defined type may not be passed ByVal

End Sub