Formunuza Efektler //vb6

Dim X, Y, I, R
R = ScaleHeight / 2
While R > 0
    I = (I + 1) Mod 360
    R = R - 1
    Y = ScaleHeight / 2 + R * Sin(I * 3.1415 / 180)
    X = ScaleWidth / 2 + R * Cos(I * 3.1415 / 180)
    PSet (X, Y)
Wend
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Show

FillStyle = 0
FillColor = Rnd * 1677219 'RESGELE RENK
Circle (X, Y), 500

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Show

FillStyle = Rnd * 7
FillColor = Rnd * 1677216
Circle (X, Y), 500


End Sub

Private Sub Form_Load()

Show
Dim I, STP
Form1.Width = Form1.Height
STP = Form1.ScaleWidth / 20
For I = 0 To Form1.ScaleHeight / 2 Step STP
ForeColor = I * 200
Line (I, I)-(Form1.ScaleWidth - I, Form1.ScaleHeight - I), , BF
Next

Option Explicit
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Sub Explode(Newform As Form, Increment As Integer)
Dim Size As RECT ' setup form as rect type
GetWindowRect Newform.hwnd, Size
Dim FormWidth, FormHeight As Integer ' establish dimension variables
FormWidth = (Size.Right - Size.Left)
FormHeight = (Size.Bottom - Size.Top)
Dim TempDC
TempDC = GetDC(ByVal 0&) ' obtain memory dc for resizing
Dim Count, LeftPoint, TopPoint, nWidth, nHeight As Integer ' establish resizing variables
For Count = 1 To Increment ' loop to new sizes
nWidth = FormWidth * (Count / Increment)
nHeight = FormHeight * (Count / Increment)
LeftPoint = Size.Left + (FormWidth - nWidth) / 2
TopPoint = Size.Top + (FormHeight - nHeight) / 2
Rectangle TempDC, LeftPoint, TopPoint, LeftPoint + nWidth, TopPoint + nHeight ' draw rectangles to build form
Next Count
DeleteDC (TempDC) ' release memory resource
End Sub
Private Sub Form_Load()
Explode Me, 1000 ' open this form by number of desired increment
End Sub

Private Sub Form_Load()
Timer1.Interval = 10
AutoRedraw = True
Label1.AutoSize = True
End Sub
Private Sub Timer1_Timer()
Dim x, y
Static i
i = (i + 1) Mod 360
y = ScaleHeight / 2 + ScaleHeight / 2 * Sin(i * 3.1415 / 180)
x = ScaleWidth / 2 + ScaleWidth / 2 * Cos(i * 3.1415 / 180)
Label1.Top = y
Label1.Left = x
Line (ScaleWidth / 2, ScaleHeight / 2)-(x, y), i * 10
Label1 = i
End Sub

Private Sub Command1_Click()
Do Until Form1.Height = 405 And Form1.Width = 1680
Form1.Height = Form1.Height - 1
Form1.Width = Form1.Width - 1
Loop
Unload Me
End Sub
Private Sub Form_Load()
Form1.Caption = "Hacker By Ans"
Form1.Height = 0
Form1.Width = 1680
Timer1.Interval = 200
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
For x = 0 To Form1.Height + 2000
Form1.Height = x
Next x
For y = 100 To Form1.Width + 1500
Form1.Width = y
Next y
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If Me.Visible = True Then
Me.Visible = False
Else
Me.Visible = True
End If
End Sub
Private Sub Command1_Click()
Timer1.Interval = 1000
End Sub

Private Sub Command1_Click()
Do Until Form1.Top = Screen.Height
Form1.Top = Form1.Top + 1
Loop
Unload Me
End Sub

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)
End Sub
Private Sub Timer1_Timer()
Call drawcircle
End Sub