gradient Coor for Frames ... Please help me..

[Sujaanpals]

I want to make frame's BackColor gradient.
Like want to make label gradient we can set backstyle=1-opaque.
Please help me

My q is to make frame's BackColor gradient ?

[Hack]

Put a PictureBox inside your frame, and size it to the frame size. Try this:

Private Sub Grafitti(MyPB As PictureBox)
    Dim x As Integer
    Dim Colo As Integer
    Dim x1 As Integer
    Dim x2 As Integer
    Dim y1 As Integer
    Dim y2 As Integer
    
    MyPB.BackColor = vbBlack
    MyPB.ScaleHeight = 100
    MyPB.ScaleWidth = 100
    For x = 0 To 300
        DoEvents
        x1 = Int(Rnd * 101)
        x2 = Int(Rnd * 101)
        y1 = Int(Rnd * 101)
        y2 = Int(Rnd * 101)
        Colo = Int(Rnd * 15)
        MyPB.Line (x1, y1)-(x2, y2), QBColor(Colo)
        MyPB.Line (x1, y2)-(x2, y1), QBColor(Colo)
        MyPB.Line (x2, y1)-(x1, y2), QBColor(Colo)
        MyPB.Line (y1, y2)-(x1, x2), QBColor(Colo)
    Next x
End Sub
 
Private Sub Command1_Click()
Grafitti Picture1
End Sub