فرض کنید یک image غیر مستطیلی دارید که می خواهید از آن بعنوان فرم برنامه تان استفاده کنید
۱ - تصویر فرم مورد نظرتان را طراحی کرده و با فرمت bmp ذخیره کنید . دقت نمایید که بایستی image خود را درون یک کادر مستطیلی قرار دهید که با یک رنگ با RGB مشخص رنگ آمیزی شده است :

۲ - یک فرم ویژوال بیسیک ایجاد کنید و خاصیت BorderStyle آنرا صفر نمایید .
3 - در متد Form Load بایستی image مورد نظر را به فرمتان assign کنید :

Me.picture=loadpicture(yourimagename)x
Me.width=Me.picture.width
Me.height=Me.picture.height

4 - سپس بایستی یک ناحیه از این image بسازید که نسبت به رنگ RGB ای که در بالا به آن اشاره کردم transparent باشد . اگر فرض کنیم این رنگ ، رنگ سیاه باشد ( r=0 , g=0, b=0 ) :

LRegion=MakeRgn(yourimagename,0,0,0)x

5 - حال بایستی ناحیه مشخص شده را بعنوان فرم برنامه تان قرار دهید :

call SetWindowRgn(Me.hwnd,LRegion,True)x

6 - یک ماژوال ایجاد کنید و خطوط زیر را در آن بنویسید :

Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function MakeRgn Lib "Region.dll" (ByVal FileName As String, ByVal R As Integer, ByVal g As Integer, ByVal b As Integer) As Long
Public Declare Function DeleteRgn Lib "Region.dll" (ByVal Region As Long)x
Global lRegion As Long

7 - در متد Form Unload عبارت زیر را قرار دهید :

Call DeleteRgn(LRegion)x

نکته ۱: بوسیله روتین زیر می توانید فرم خود را در وسط صفحه قرار دهید :

(Sub CenterForm(frm As Form
frm.Left = (Screen.Width - frm.Width) / 2
frm.Top = (Screen.Height - frm.Height) / 2
End Sub

امیدوارم خوشتان آمده باشد . تا مطلب جدیدتر خدانگهدار