Programalama > VISUAL BASIC

Public Sub drawcircle()
Dim red As Integer 'declare all varibles
Dim blue As Integer
Dim green As Integer
Dim xPos As Integer
Dim yPos As Integer
red = 255 * Rnd 'randomize red color
blue = 255 * Rnd 'randomize blue color
green = 255 * Rnd 'randomize green color
xPos = ScaleWidth / 2
yPos = ScaleHeight / 2
radius = ((yPos * 0.99) + 1) * Rnd
Circle (xPos, yPos), radius, RGB(red, blue, green)

Label1.FontSize = 20
Label1.FontBold = True
Label1.ForeColor = RGB(red, blue, green)
Label1.Caption = "O S M A N"
End Sub

Private Sub Timer1_Timer()
Form1.WindowState = 2
Call drawcircle

End Sub