Public Class FrmSt Inherits System.Windows.Forms.Form #Region " Windows Form Designer generated code " Public Sub New() MyBase.New() 'This call is required by the Windows Form Designer. InitializeComponent() 'Add any initialization after the InitializeComponent() call End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents CbClass As System.Windows.Forms.ComboBox Friend WithEvents TxtStudent As System.Windows.Forms.TextBox Private Sub InitializeComponent() Me.Label2 = New System.Windows.Forms.Label() Me.CbClass = New System.Windows.Forms.ComboBox() Me.Button2 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() Me.TxtStudent = New System.Windows.Forms.TextBox() Me.SuspendLayout() ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte)) Me.Label2.Location = New System.Drawing.Point(236, 67) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(66, 19) Me.Label2.TabIndex = 11 Me.Label2.Text = "اسم الطالب" Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'CbClass ' Me.CbClass.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.CbClass.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte)) Me.CbClass.Items.AddRange(New Object() {"ابتدائية", "إعداديّة", "ثانويّة", "صناعيّة"}) Me.CbClass.Location = New System.Drawing.Point(12, 107) Me.CbClass.Name = "CbClass" Me.CbClass.Size = New System.Drawing.Size(152, 28) Me.CbClass.TabIndex = 10 ' 'Button2 ' Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte)) Me.Button2.Location = New System.Drawing.Point(60, 171) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(72, 32) Me.Button2.TabIndex = 9 Me.Button2.Text = "إلغاء" ' 'Button1 ' Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte)) Me.Button1.Location = New System.Drawing.Point(220, 171) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(72, 32) Me.Button1.TabIndex = 8 Me.Button1.Text = "موافق" ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte)) Me.Label1.Location = New System.Drawing.Point(60, 67) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(83, 19) Me.Label1.TabIndex = 7 Me.Label1.Text = "السنة الدراسيّة" Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'TxtStudent ' Me.TxtStudent.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte)) Me.TxtStudent.Location = New System.Drawing.Point(188, 107) Me.TxtStudent.Name = "TxtStudent" Me.TxtStudent.Size = New System.Drawing.Size(152, 26) Me.TxtStudent.TabIndex = 6 Me.TxtStudent.Text = "" ' 'FrmSt ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(352, 226) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label2, Me.CbClass, Me.Button2, Me.Button1, Me.Label1, Me.TxtStudent}) Me.Name = "FrmSt" Me.Text = "Form3" Me.ResumeLayout(False) End Sub #End Region Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.DialogResult = DialogResult.OK End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.DialogResult = DialogResult.Cancel End Sub End Class