如何利用VB.Net生成动态“关于”对话框

    Private Sub DynamicAboutBox()
        Dim strAbout As String
        Dim exeApp As System.Reflection.Assembly
        exeApp = System.Reflection.Assembly.GetExecutingAssembly()


        Dim exeName As System.Reflection.AssemblyName
        exeName = exeApp.GetName()


        strAbout = "Application: " & exeName.Name & vbCrLf
        strAbout = strAbout & "Version: " & exeName.Version.ToString() & vbCrLf
        strAbout = strAbout & "Code Base: " & exeName.CodeBase & vbCrLf
        strAbout = strAbout & "Company: " & System.Windows.Forms.Application.CompanyName & vbCrLf
        strAbout = strAbout & "Product: " & System.Windows.Forms.Application.ProductName & vbCrLf


        MessageBox.Show(strAbout)


    End Sub