ignore it its just test !!!!

[sakeeb]

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