 Sub

Private Sub Form_Load()
   
   m_tOSV.dwVersionInfoSize = Len(m_tOSV)
   GetVersionEx m_tOSV
   
   ' Defaults:
   If Len(m_sAppName) = 0 Then
      m_sAppName = App.FileDescription
   End If
   If Len(m_sTitle) = 0 Then
      m_sTitle = App.Title
   End If
   If Len(m_sCopyright) = 0 Then
      m_sCopyright = App.LegalCopyright
   End If
   If Len(m_sVersion) = 0 Then
      m_sVersion = "Version: " &amp; App.Major &amp; "." &amp; App.Minor &amp; "." &amp;
       App.Revision
   End If
   If Len(m_sAc