VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "اگه از اين برنامه خوشتون اومد براي عزيز سفر کرده ام صلوات بفرستيد"
   ClientHeight    =   7860
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7470
   LinkTopic       =   "Form1"
   ScaleHeight     =   7860
   ScaleWidth      =   7470
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
Dim CX, CY, F, F1, F2, I ' declare variables
ScaleMode = 3 ' set scalemode to pixels.
CX = ScaleWidth / 2 ' Get horizontal center.
CY = ScaleWidth / 2 ' Get vertical center.
DrawWidth = 8 'set drawWidth.
For I = 50 To 0 Step -2
F = I / 50        'perform interim
F1 = 1 - F: F2 = 1 + F  ' calculations.
ForeColor = QBColor(I Mod 15)   ' Set foreground color.
Line (CX * F1, CY * F1)-(CX * F2, CY * F2), , BF
Next I
DoEvents ' yield for other processing.
If CY > CX Then ' set DrawWidth.
DrawWidth = ScaleWidth / 25
Else
DrawWidth = ScaleWidth / 25
End If
For I = 0 To 50 Step 2 'set up loop.
F = I / 50 'perform interim
F1 = 1 - F: F2 = 1 + F 'calculations.
Line (CX * F1, CY)-(CX, CY * F1)   ' Draw upper-left.
Line -(CX * F2, CY) ' Draw upper-right.
Line -(CX, CY * F2)  ' Draw lower-right.
Line -(CX * F1, CY) ' Draw lower-left.
ForeColor = QBColor(I Mod 15) ' chang color each time.
Next I
DoEvents                  ' yield for other processing.
End Sub