Sub test(p As Panel, amount As Int )
Dim rect0,rect1,rect2,rect3,rect4,rect5,rect6,rect7,rectfill As Rect
Dim vect,vect2 As SVG
cvs.Initialize(p)
rect0.Initialize(amount * 1dip,0,p.Width - amount * 1dip,amount * 1dip)
rect1.Initialize(p.Width - amount * 1dip,0,p.Width,amount * 1dip)
rect2.Initialize(p.Width - amount * 1dip,amount * 1dip,p.Width,p.Height - amount * 1dip)
rect3.Initialize(p.width - amount * 1dip, p.Height - amount * 1dip, p.Width, p.height)
rect4.Initialize(amount * 1dip,p.Height - amount * 1dip, p.Width - amount * 1dip, p.Height)
rect5.Initialize(0, p.Height - amount * 1dip, amount * 1dip,p.Height)
rect6.Initialize(0,amount * 1dip,amount * 1dip,p.Height - amount * 1dip)
rect7.Initialize(0,0,amount * 1dip,amount * 1dip)
' rectfill.Initialize(amount * 1dip,amount * 1dip,p.Width - amount * 1dip,p.Height - amount * 1dip)
vect.Initialize(File.DirAssets, "0.svg")
vect.DrawPicture(cvs,rect0)
vect.Initialize(File.DirAssets, "1.svg")
vect.DrawPicture(cvs,rect1)
vect2.Initialize(File.DirAssets, "2.svg")
vect2.DrawPicture(cvs,rect2)
vect.Initialize(File.DirAssets, "3.svg")
vect.DrawPicture(cvs,rect3)
vect.Initialize(File.DirAssets, "4.svg")
vect.DrawPicture(cvs,rect4)
vect.Initialize(File.DirAssets, "5.svg")
vect.DrawPicture(cvs,rect5)
vect.Initialize(File.DirAssets, "6.svg")
vect.DrawPicture(cvs, rect6)
vect.Initialize(File.DirAssets, "7.svg")
vect.DrawPicture(cvs,rect7)
' vect.Initialize(File.DirAssets, "bg_mid.svg")
' vect.DrawPicture(cvs,rectfill)
bmp = cvs.Bitmap
End Sub