كود اريد ان اغير اللون فيه المؤثر

السلام عليكم

هذا كود مؤثر للفورم

ولونه ازرق اذا انا ابغى اغير اللون غير الازرق كيف ؟؟

وكيف اغير اللون الأزرق اللي موجود في الفيجوال بيسك للفورم ابغى تغيييييييييير في اللون

واضافة شيء جديد

وهذا الكود كيف اغير اللون الازرق الى لون اخر

Private Declare Function CreateRoundRectRgn Lib "gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long 'MODULE 1152

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

'v is the size of the top corners and w is the size of the bottom corners...

Sub RoundRect(ByVal uObject As Object, ByVal v As Long, ByVal w As Long)

Dim lRight As Long

Dim lBottom As Long

Dim hRgn As Long

With uObject

lRight = .Width / Screen.TwipsPerPixelX

lBottom = .Height / Screen.TwipsPerPixelY

hRgn = CreateRoundRectRgn(0, 0, lRight, lBottom, v, w)

SetWindowRgn .hWnd, hRgn, True

End With

End Sub

Private Sub Form_Load()

Explode Me

RoundRect Me, 40, 40 'Leave it on 40.

End Sub

Sub Explode(form1 As Form)

form1.Width = 0

form1.Height = 0

form1.Show

For X = 0 To 10500 Step 1

form1.Width = X

form1.Height = X

With form1

.Left = (Screen.Width - .Width) / 2

.Top = (Screen.Height - .Height) / 2

End With

Next

End Sub