VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   1590
   ClientLeft      =   3195
   ClientTop       =   2850
   ClientWidth     =   3090
   DrawStyle       =   2  'Dot
   LinkTopic       =   "Form1"
   ScaleHeight     =   79.5
   ScaleMode       =   2  'Point
   ScaleWidth      =   154.5
   Begin VB.PictureBox Picture2 
      BorderStyle     =   0  'None
      Height          =   855
      Left            =   2100
      Picture         =   "sy10-10.frx":0000
      ScaleHeight     =   855
      ScaleWidth      =   975
      TabIndex        =   2
      Top             =   60
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "·آصوتن³ِ"
      Height          =   435
      Left            =   1680
      TabIndex        =   1
      Top             =   1080
      Width           =   1395
   End
   Begin VB.PictureBox Picture1 
      Height          =   540
      Left            =   2400
      Picture         =   "sy10-10.frx":569E
      ScaleHeight     =   480
      ScaleWidth      =   540
      TabIndex        =   0
      Top             =   60
      Width           =   600
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    Dim i, j As Integer, mcolor As Long
    Form1.ScaleMode = 3
    Form1.DrawMode = 13
    For i = 1 To 100
        For j = 1 To 100
            mcolor = Picture2.Point(i, j)
             PSet (i, j), mcolor
        Next j
    Next i
End Sub

Private Sub Form_Load()
    Form1.Scale (0, 0)-(100, 100)
    Picture2.Scale (0, 0)-(100, 100)
End Sub

