Sub BoxGradient(frm As Form, rs%, gs%, bs%, re%, ge%, be%, size%, smooth As Boolean)
If frm.WindowState = vbMinimized Then Exit Sub
size = size + 2
If smooth = True Then
frm.DrawStyle = 6
Else
frm.DrawStyle = 0
End If
If frm.ScaleWidth <> 255 Then
frm.ScaleWidth = 255
End If
If frm.ScaleHeight <> 255 Then
frm.ScaleHeight = 255
End If
frm.DrawWidth = 5
frm.Refresh
ri = (rs – re) / 255
gi = (gs – ge) / 255
bi = (bs – be) / 255
rc = rs: bc = bs: gc = gs
For X = 255 To 0 Step -1
DoEvents
frm.Line ((X / size%), (X / size%))-(frm.ScaleWidth – (X / size%), frm.ScaleHeight – (X / size%)), RGB(rc, gc, bc), B
rc = rc – ri
gc = gc – gi
bc = bc – bi
Next X
End Sub
‘Sample for using this routine
Private Sub Form_Resize()
BoxGradient Form1, 111, 111, 222, 222, 255, 255, 5, True
End Sub
No related posts.
Related posts brought to you by Yet Another Related Posts Plugin.
