VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4455
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   4455
   ScaleWidth      =   4680
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command5 
      Caption         =   "إمسح الكل"
      Height          =   495
      Left            =   360
      TabIndex        =   5
      Top             =   3840
      Width           =   3855
   End
   Begin VB.CommandButton Command4 
      Caption         =   "صباح الخير"
      Height          =   495
      Left            =   3360
      TabIndex        =   4
      Top             =   3240
      Width           =   855
   End
   Begin VB.CommandButton Command3 
      Caption         =   "عرض رسالة"
      Height          =   495
      Left            =   2520
      TabIndex        =   3
      Top             =   3240
      Width           =   855
   End
   Begin VB.CommandButton Command2 
      Caption         =   "إغلاق البرنامج"
      Height          =   495
      Left            =   1560
      TabIndex        =   2
      Top             =   3240
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "لإظهار النافذة 2"
      Height          =   495
      Left            =   360
      TabIndex        =   1
      Top             =   3240
      Width           =   1215
   End
   Begin VB.Label Label1 
      BackColor       =   &H8000000D&
      Caption         =   "Label1"
      Height          =   375
      Index           =   0
      Left            =   840
      TabIndex        =   0
      Top             =   120
      Width           =   3015
   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 a As Integer
'حمل المتغير بقيمة عدد الأدوات
a = Label1.Count

'حمل الأداة
Load Label1(a)

'عدل بعض خصائص الأداة كما فى الأداة العادية
Label1(a).Top = Label1(a - 1).Top + Label1(a).Height
Label1(a).BackColor = vbWhite
Label1(a).Caption = "إظهار النافذة الثانية"

'إظهر الأداة الأن حيث انها تكون مخفية حتى تعطى أمر الإظهار
Label1(a).Visible = True

End Sub

Private Sub Command2_Click()
Dim a As Integer
'حمل المتغير بقيمة عدد الأدوات
a = Label1.Count

'حمل الأداة
Load Label1(a)

'عدل بعض خصائص الأداة كما فى الأداة العادية
Label1(a).Top = Label1(a - 1).Top + Label1(a).Height
Label1(a).BackColor = vbRed
Label1(a).ForeColor = vbWhite
Label1(a).Caption = "إغلاق البرنامج"

'إظهر الأداة الأن حيث انها تكون مخفية حتى تعطى أمر الإظهار
Label1(a).Visible = True
End Sub

Private Sub Command3_Click()
Dim a As Integer
'حمل المتغير بقيمة عدد الأدوات
a = Label1.Count

'حمل الأداة
Load Label1(a)

'عدل بعض خصائص الأداة كما فى الأداة العادية
Label1(a).Top = Label1(a - 1).Top + Label1(a).Height
Label1(a).BackColor = vbBlue
Label1(a).ForeColor = vbWhite
Label1(a).Caption = "إعرض رسالة"

'إظهر الأداة الأن حيث انها تكون مخفية حتى تعطى أمر الإظهار
Label1(a).Visible = True

End Sub

Private Sub Command4_Click()
Dim a As Integer
'حمل المتغير بقيمة عدد الأدوات
a = Label1.Count

'حمل الأداة
Load Label1(a)

'عدل بعض خصائص الأداة كما فى الأداة العادية
Label1(a).Top = Label1(a - 1).Top + Label1(a).Height
Label1(a).BackColor = vbGreen
Label1(a).ForeColor = vbWhite
Label1(a).Caption = "وانت بالصحة والسلامة"

'إظهر الأداة الأن حيث انها تكون مخفية حتى تعطى أمر الإظهار
Label1(a).Visible = True

End Sub

Private Sub Command5_Click()
'عرف متغييرن
Dim cont, sc As Integer
'المتغيير الأول حملة القيمة صفر
cont = 0
'المتغير الثانى حملة عدد الليبهات -واحد
sc = Label1.Count - 1

'إبد عداد المسح
Do Until cont = sc
'إمسح الأداة
Unload Label1(cont + 1)
cont = cont + 1
DoEvents
'كرر العملية
Loop
End Sub

Private Sub Label1_Click(Index As Integer)
'هذا هو كود الأدوات
'حيث خاصية Index تعود رقم الأداة التى تم النقر عليها
'نحن هنا نتعرف على الأداة عن طريق خاصية العنوان
'وكل أداة لها الأمر أمامها
If Label1(Index).Caption = "وانت بالصحة والسلامة" Then Me.WindowState = 1: Exit Sub

If Label1(Index).Caption = "إعرض رسالة" Then MsgBox "Copyright © Firstsoft Corp. 2004-2005", vbInformation, "Firstsoft Team": Exit Sub

If Label1(Index).Caption = "إغلاق البرنامج" Then End: Exit Sub

If Label1(Index).Caption = "إظهار النافذة الثانية" Then Form2.Show vbModal, Me: Exit Sub
End Sub