ایجاد شیب رنگ در رنگ پس زمینه فرم

[ali190]

با سلام
آیا سورسی وجود داره که در اون بشه در رنگ پشت زمنه یک فرم شیب رنگ ایجاد نمود؟
ممنون

[programer1389]

این رو ببین

Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Private Sub Form_Load()
Dim Cnt1 As Byte, Cnt2 As Byte
Me.AutoRedraw = True
Me.ScaleMode = vbPixels
For Cnt1 = 0 To 254 Step 1
For Cnt2 = 0 To 254 Step 1
'Draw a pixel
SetPixel Me.hdc, Cnt1, Cnt2, RGB(Cnt2, Cnt1, Cnt2)
Next Cnt2
Next Cnt1
End Sub

[aryasoft2872]

اینطوری هم میشه: