[سعود]

PHP كود :

Public Class Form1
    Dim o As OpenFileDialog


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        o = New OpenFileDialog
        If o.ShowDialog = DialogResult.OK Then
            MsgBox("أنقر على ادوات التسمية لعرض ماتعنيه", MsgBoxStyle.Information, "")
            GroupBox1.Enabled = True
        Else
            GroupBox1.Enabled = False
        End If
    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
        TextBox1.Text = IO.Path.GetFileNameWithoutExtension(o.FileName)
    End Sub

    Private Sub Label4_Click(sender As Object, e As EventArgs) Handles Label4.Click
        TextBox1.Text = o.SafeFileName
    End Sub

    Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
        TextBox1.Text = IO.Path.GetDirectoryName(o.FileName)
    End Sub

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
        TextBox1.Text = o.FileName
    End Sub
End Class 


ان كان القصد OpenFileDialog