[تركي الحلواني]

ضع هذه الدالة في الموديول

PHP كود :

Public Sub UpdateTextBoxes(ByVal formName As Form, ByVal textBoxID As String, ByVal textBoxName As String)
    Select Case formName.Name
        Case "frmVindors"
            DirectCast(formName, frmVindors).txtRegionNameID.Text = textBoxID
            DirectCast(formName, frmVindors).txtRegionName.Text = textBoxName
        Case "frmCustomers", "frmShipping", "frmRegion"
            DirectCast(formName, frmCustomers).txtRegionNameID.Text = textBoxID
            DirectCast(formName, frmCustomers).txtRegionName.Text = textBoxName
        Case Else
            ' التعامل مع النماذج الأخرى إذا لزم الأمر
    End Select
    formName.Close()
End Sub 


وجرب الكود 

PHP كود :

Try
    UpdateTextBoxes(Me, dgv_Add.CurrentRow.Cells(0).Value.ToString(), dgv_Add.CurrentRow.Cells(1).Value.ToString())
Catch ex As Exception
    MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try