|
Public Sub CircleGradient(Frm As Form)
Randomize Dim MyGrad As Integer MyGrad = Int((10 * Rnd) + 1) If MyGrad = 1 Then CircleGradient1 Frm ElseIf MyGrad = 2 Then CircleGradient2 Frm ElseIf MyGrad = 3 Then CircleGradient3 Frm ElseIf MyGrad = 4 Then CircleGradient4 Frm ElseIf MyGrad = 5 Then CircleGradient5 Frm ElseIf MyGrad = 6 Then CircleGradient6 Frm ElseIf MyGrad = 7 Then CircleGradient7 Frm ElseIf MyGrad = 8 Then CircleGradient8 Frm ElseIf MyGrad = 9 Then CircleWBGradient Frm ElseIf MyGrad = 10 Then CircleBWGradient Frm End If End Sub Public Function CircleGradient1(Frm As Form) Frm.Cls Randomize Dim X, Orig, Orig2, MRed, MGreen, MBlue, XX MBlue = 257 MRed = 257 MGreen = 1 Orig2 = Frm.BackColor Orig = Frm.DrawWidth Frm.DrawWidth = 5 If Frm.WindowState = 2 Then X = Frm.ScaleWidth - 5800 XX = 0.5 Else X = Frm.ScaleWidth - 250 XX = 1 End If Do Frm.ForeColor = RGB(MRed, MGreen, MBlue) Frm.Circle (Frm.ScaleWidth / 2, Frm.ScaleHeight / 2), X X = X - 25 MRed = MRed - XX MBlue = MBlue - XX MGreen = MGreen + XX If MGreen >= 256 Then MGreen = 1 ElseIf MBlue <= 1 Then MBlue = 256 ElseIf MRed <= 1 Then MRed = 256 End If Loop Until X <= 20 End Function Public Function CircleGradient8(Frm As Form) Frm.Cls Randomize Dim X, Orig, Orig2, MRed, MGreen, MBlue, XX MBlue = 1 MRed = 135 MGreen = 1 Orig2 = Frm.BackColor Orig = Frm.DrawWidth Frm.DrawWidth = 5 If Frm.WindowState = 2 Then X = Frm.ScaleWidth - 5800 XX = 0.5 Else X = Frm.ScaleWidth - 250 XX = 1 End If Do Frm.ForeColor = RGB(MRed, MGreen, MBlue) Frm.Circle (Frm.ScaleWidth / 2, Frm.ScaleHeight / 2), X X = X - 25 MRed = MRed - 0.001 MBlue = MBlue + XX MGreen = MGreen If MGreen >= 256 Then MGreen = 1 ElseIf MBlue >= 256 Then MBlue = 1 ElseIf MRed >= 256 Then MRed = 1 End If Loop Until X <= 20 End Function Public Function CircleGradient2(Frm As Form) Frm.Cls Randomize Dim X, Orig, Orig2, MRed, MGreen, MBlue, XX MBlue = 257 MRed = 1 MGreen = 257 Orig2 = Frm.BackColor Orig = Frm.DrawWidth Frm.DrawWidth = 5 If Frm.WindowState = 2 Then X = Frm.ScaleWidth - 5800 XX = 0.5 Else X = Frm.ScaleWidth - 250 XX = 1 End If Do Frm.ForeColor = RGB(MRed, MGreen, MBlue) Frm.Circle (Frm.ScaleWidth / 2, Frm.ScaleHeight / 2), X X = X - 25 MRed = MRed + XX MBlue = MBlue - XX MGreen = MGreen - XX If MRed >= 256 Then MRed = 1 ElseIf MGreen <= 1 Then MGreen = 256 ElseIf MBlue <= 1 Then MBlue = 256 End If Loop Until X <= 20 End Function Public Function CircleGradient3(Frm As Form) Frm.Cls Randomize Dim X, Orig, Orig2, MRed, MGreen, MBlue, XX MBlue = 1 MRed = 257 MGreen = 257 Orig2 = Frm.BackColor Orig = Frm.DrawWidth Frm.DrawWidth = 5 If Frm.WindowState = 2 Then X = Frm.ScaleWidth - 5800 XX = 0.5 Else X = Frm.ScaleWidth - 250 XX = 1 End If Do Frm.ForeColor = RGB(MRed, MGreen, MBlue) Frm.Circle (Frm.ScaleWidth / 2, Frm.ScaleHeight / 2), X X = X - 25 MRed = MRed - XX MBlue = MBlue + XX MGreen = MGreen - XX If MBlue >= 256 Then MBlue = 1 ElseIf MGreen <= 1 Then MGreen = 256 ElseIf MRed <= 1 Then MRed = 256 End If Loop Until X <= 20 End Function Public Function CircleGradient7(Frm As Form) Frm.Cls Randomize Dim X, Orig, Orig2, MRed, MGreen, MBlue, XX MBlue = 1 MRed = 257 MGreen = 257 Orig2 = Frm.BackColor Orig = Frm.DrawWidth Frm.DrawWidth = 4 If Frm.WindowState = 2 Then X = Frm.ScaleWidth - 5800 XX = 0.5 Else X = Frm.ScaleWidth - 250 XX = 1 End If Do Frm.ForeColor = RGB(MRed, MGreen, MBlue) Frm.Circle (Frm.ScaleWidth / 2, Frm.ScaleHeight / 2), X X = X - 25 MRed = MRed - (XX / 10) MBlue = MBlue MGreen = MGreen - XX If MGreen <= 1 Then MGreen = 256 ElseIf MRed <= 1 Then MRed = 256 End If Loop Until X <= 20 End Function Public Function CircleGradient4(Frm As Form) Frm.Cls Randomize Dim X, Orig, Orig2, MRed, MGreen, MBlue, XX MBlue = 257 MRed = 1 MGreen = 1 Orig2 = Frm.BackColor Orig = Frm.DrawWidth Frm.DrawWidth = 5 If Frm.WindowState = 2 Then X = Frm.ScaleWidth - 5800 XX = 0.5 Else X = Frm.ScaleWidth - 250 XX = 1 End If Do Frm.ForeColor = RGB(MRed, MGreen, MBlue) Frm.Circle (Frm.ScaleWidth / 2, Frm.ScaleHeight / 2), X X = X - 25 MRed = MRed + XX MBlue = MBlue - XX MGreen = MGreen + XX If MGreen >= 256 Then MGreen = 1 ElseIf MRed >= 256 Then MRed = 1 ElseIf MBlue <= 1 Then MBlue = 256 End If Loop Until X <= 20 End Function Public Function CircleGradient5(Frm As Form) Frm.Cls Randomize Dim X, Orig, Orig2, MRed, MGreen, MBlue, XX MBlue = 1 MRed = 257 MGreen = 1 Orig2 = Frm.BackColor Orig = Frm.DrawWidth Frm.DrawWidth = 5 If Frm.WindowState = 2 Then X = Frm.ScaleWidth - 5800 XX = 0.5 Else X = Frm.ScaleWidth - 250 XX = 1 End If Do Frm.ForeColor = RGB(MRed, MGreen, MBlue) Frm.Circle (Frm.ScaleWidth / 2, Frm.ScaleHeight / 2), X X = X - 25 MRed = MRed - XX MBlue = MBlue + XX MGreen = MGreen + XX If MGreen >= 256 Then MGreen = 1 ElseIf MBlue >= 256 Then MBlue = 1 ElseIf MRed <= 1 Then MRed = 256 End If Loop Until X <= 20 End Function Public Function CircleGradient6(Frm As Form) Frm.Cls Randomize Dim X, Orig, Orig2, MRed, MGreen, MBlue, XX MBlue = 1 MRed = 1 MGreen = 257 Orig2 = Frm.BackColor Orig = Frm.DrawWidth Frm.DrawWidth = 5 If Frm.WindowState = 2 Then X = Frm.ScaleWidth - 5800 XX = 0.5 Else X = Frm.ScaleWidth - 250 XX = 1 End If Do Frm.ForeColor = RGB(MRed, MGreen, MBlue) Frm.Circle (Frm.ScaleWidth / 2, Frm.ScaleHeight / 2), X X = X - 25 MRed = MRed + XX MBlue = MBlue + XX MGreen = MGreen - XX If MBlue >= 256 Then MBlue = 1 ElseIf MRed >= 256 Then MRed = 1 ElseIf MGreen <= 1 Then MGreen = 256 End If Loop Until X <= 20 End Function Public Sub CircleBWGradient(Frm As Form) Frm.Cls Randomize Dim X, Orig, Orig2, MRed, MGreen, MBlue, XX MBlue = 1 MRed = 1 MGreen = 1 Orig2 = Frm.BackColor Orig = Frm.DrawWidth Frm.DrawWidth = 4 If Frm.WindowState = 2 Then X = Frm.ScaleWidth - 5800 XX = 0.5 Else X = Frm.ScaleWidth - 250 XX = 1 End If Do Frm.ForeColor = RGB(MRed, MGreen, MBlue) Frm.Circle (Frm.ScaleWidth / 2, Frm.ScaleHeight / 2), X X = X - 25 MRed = MRed + XX MBlue = MBlue + XX MGreen = MGreen + XX If MGreen >= 256 Then MGreen = 1 ElseIf MBlue >= 256 Then MBlue = 1 ElseIf MRed >= 256 Then MRed = 1 End If Loop Until X <= 20 End Sub Public Sub CircleWBGradient(Frm As Form) Frm.Cls Randomize Dim X, Orig, Orig2, MRed, MGreen, MBlue, XX MBlue = 257 MRed = 257 MGreen = 257 Orig2 = Frm.BackColor Orig = Frm.DrawWidth Frm.DrawWidth = 40 If Frm.WindowState = 2 Then X = Frm.ScaleWidth - 4500 XX = 0.5 Else X = Frm.ScaleWidth - 500 XX = 1 End If Do Frm.ForeColor = RGB(MRed, MGreen, MBlue) Frm.Circle (Frm.ScaleWidth / 2, Frm.ScaleHeight / 2), X X = X - 25 MRed = MRed - XX MBlue = MBlue - XX MGreen = MGreen - XX If MGreen <= 1 Then MGreen = 256 ElseIf MBlue <= 1 Then MBlue = 256 ElseIf MRed <= 1 Then MRed = 256 End If Loop Until X <= 20 End Sub |