You can do thiw with the ApiWindow class of the EventVB.dll thus:
VB Code:
Option Explicit Dim WithEvents vbLink As EventVB.APIFunctions Dim WithEvents vbWnd As EventVB.ApiWindow Private Sub Form_Load() Set vbLink = New APIFunctions Set vbWnd = New ApiWindow With vbWnd .hWnd = Me.hWnd .ScrollBars = vbBoth .AutoScroll = True End With vbLink.SubclassedWindows.Add vbWnd End Sub
HTH,
Duncan




Reply With Quote