ignore it its just test !!!!

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

There is a forum test area on VBForums :)

ya i m sorry for that