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

[Merri]

There is a forum test area (http://www.vbforums.com/forumdisplay.php?f=39) on VBForums :)

[sakeeb]

ya i m sorry for that