الموضوع منقوووول
بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله،،،

فورم علي شكل كلمات

هذا الكود وظيفته عمل نموذج علي شكل كلمات حيث تستطيع كتابة الكلمات التي تريدها

قم بوضع هذا الكود في قسم التصاريح General

Private Declare Function SelectClipPath Lib "gdi32" (ByVal hDC As Long* ByVal iMode As Long) As Long
Private Declare Function BeginPath Lib "gdi32" (ByVal hDC As Long) As Long
Private Declare Function EndPath Lib "gdi32" (ByVal hDC As Long) As Long
Private Declare Function PathToRegion Lib "gdi32" (ByVal hDC As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long* ByVal hRgn As Long* ByVal bRedraw As Boolean) As Long
Private Const RGN_COPY = 5

ثم قم بوضع هذا الكود في الفورم حدث التحميل

Private Sub Form_Load()
Const txt = "Ahmed LionHeart"
Dim hRgn As Long
BorderStyle = vbBSNone
Caption = ""
BackColor = &H80C0FF
Font.Name = "Comic Sans MS"
Font.Bold = True
Font.Size = 60
Width = TextWidth(txt)
Height = TextHeight(txt)
BeginPath hDC
CurrentX = 0
CurrentY = 0
Print txt
EndPath hDC
hRgn = PathToRegion(hDC)
SetWindowRgn hwnd* hRgn* False
Move (Screen.Width - Width) / 2* (Screen.Height - Height) / 2
End Sub

هذا الكود منقول عن موقع أجنبي.