• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Good Fader codes for fadding forms

Good Fader codes for fadding forms

Good Fader codes for fadding forms

Rate Good Fader codes for fadding forms

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Sub EndRed(theform As Form)
'Put in form 'Paint'
Dim w, b, i, Y
theform.BackColor = &H0&
theform.DrawStyle = 6
theform.DrawMode = 13
theform.DrawWidth = 2
theform.ScaleMode = 3
theform.ScaleHeight = (256 * 2)
For w = 255 To 0 Step -1
theform.Line (0, b)-(theform.Width, b + 100), RGB(w + 100, w, w * 100), BF
b = b + 100
Next w
For i = 255 To 0 Step -1
theform.Line (0, 0)-(theform.Width, Y + 100), RGB(i + 100, i, i * 100), BF
Y = Y + 100
Next i
End Sub

Sub EndBlack(theform As Form)
'Put in form 'Paint'
Dim w, b, i, Y
theform.BackColor = &H0&
theform.DrawStyle = 6
theform.DrawMode = 13
theform.DrawWidth = 2
theform.ScaleMode = 3
theform.ScaleHeight = (256 * 2)
For w = 255 To 0 Step -1
theform.Line (0, b)-(theform.Width, b + 1), RGB(w + 1, w, w * 1), BF
b = b + 100
Next w
For i = 255 To 0 Step -1
theform.Line (0, 0)-(theform.Width, Y + 1), RGB(i + 1, i, i * 1), BF
Y = Y + 100
Next i
End Sub

Sub LineDown(theform As Form)
'Put in form 'Paint'
Dim w, b, i, Y
theform.BackColor = vbBlack
theform.DrawStyle = 6
theform.DrawMode = 13
theform.DrawWidth = 2
theform.ScaleMode = 3
theform.ScaleHeight = (256 * 100)
For w = 255 To 0 Step -1
theform.Line (0, 0)-(theform.Width, b + 10), RGB(w + 10, w, w * 10), BF
b = b + 100
Next w
For i = 255 To 0 Step -1
theform.Line (0, 0)-(theform.Width, Y + 10), RGB(i + 10, i, i * 10), BF
Y = Y + 100
Next i
End Sub

Sub EndFire(theform As Form)
'Put in form 'Paint'
Dim w, b, i, Y
theform.BackColor = &H0&
theform.DrawStyle = 6
theform.DrawMode = 13
theform.DrawWidth = 2
theform.ScaleMode = 3
theform.ScaleHeight = (256 * 2)
For w = 255 To 0 Step -1
theform.Line (0, 0)-(theform.Width, b + 1), RGB(255, 255 - w, 0), BF
b = b + 100
Next w
End Sub