Тип Any

[A.A.Z.]

Что это за тип?
(Declare Function SendMesage Lib "user32" Alias "SendMessageA"(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long)

[GSerg]

Это не тип. Это указание, что можно передать туда любой тип. Кстати, lParam обычно объявляют не ByVal, так удобнее, поскольку через него обычно указатели передают.