Dim currentAss As Reflection.Assembly = _
          System.Reflection.Assembly.GetExecutingAssembly()
        Dim modul As Reflection.Module = currentAss.GetModule( _
        currentAss.GetName().Name + ".exe")
        Dim appPath As String = Application.StartupPath
        Dim fullPath As String = System.IO.Path.Combine(appPath, modul.Name)
        Dim createTime As Date = Nothing
        If IO.File.Exists(fullPath) Then
            createTime = New IO.FileInfo(fullPath).CreationTime
            MessageBox.Show(createTime.ToString())
        End If