Region.dll

[misytaz]

من اين فايل رو پيدا كردم و در دايركتوري ويندوزم كپي كردم اما وقتي مي خواهم ازش استفاده كنم (از تابع MakeRgn) وي بي ارور مي ده كه : file not found !!!!!:ناراحت: حالا بگيد ببينم چه گلي به سرم بگيرم:گریه:

[misytaz]

اين هم آدرس فايل:
http://www.soft-info.ru/free/download/1202512970
اين هم اعلان تابع ها و كد برنامه:
Option Explicit
Private Declare Function SetWindowRgn Lib "user32.dll" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function MakeRgn Lib "Region.dll" (ByVal FileName As String, ByVal R As Integer, ByVal g As Integer, ByVal b As Integer) As Long
Private Declare Function DeleteRgn Lib "Region.dll" (ByVal region As Long)
Dim LRegion As Long

Private Sub Form_Click()
End
End Sub

Private Sub Form_Load()
Me.Picture = LoadPicture("D:\taz\f.bmp")
Me.Width = 8505
Me.Height = 5790
LRegion = MakeRgn("D:\taz\f.bmp", 0, 0, 0)
Call SetWindowRgn(Me.hWnd, LRegion, True)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call DeleteRgn(LRegion)
End Sub

[misytaz]

آقاجان هنوز كسي پيدا نشده كه يك نوع گل براي گرفتن به سرم معرفي كنه:متفکر: