Function VerCheck()
   Dim version, CheckStatus
   On Error Resume Next
   Set CheckVer = CreateObject("DESKPLUSUP.DpUpgrade")
   if IsObject(CheckVer) then
      CheckVer.SetInitData
      CheckVer.ServerAddress = "gw.plantynet.com"
      CheckVer.ConnectUserId = ""
      CheckVer.ConnectUserPassword = " "
      CheckVer.VersionFilename = "Update.ver"
      CheckVer.LoginUrl = "http://gw.plantynet.com/default.asp"
      CheckVer.ProgressDlgView = "1"
      CheckVer.StartDownload
      CheckStatus = CheckVer.Status
      Set CheckVer = nothing
      select case CheckStatus    '0 ½ÇÆÐ, 1 ¼º°ø, 2 ´Ù½Ã ·Î±äâ, 3 dll ¿À·ù½Ã »õ·Î ´Ù¿î·Îµå ¹Þ±â
         case "0" msgbox("ÄÄÆ÷³ÍÆ® ´Ù¿î·Îµå´Â µÇ¾úÀ¸³ª ºê¶ó¿ìÀú°¡ ƯÁ¤ ÇÁ·Î¼¼½º¸¦" & vbCrLf&vbCrLf & "Á¡À¯ÇÏ°í À־ ·Î±×ÀÎÀÌ ºÒ°¡´ÉÇÕ´Ï´Ù." & vbCrLf&vbCrLf & "ÄÄÇ»Å͸¦ Àç½ÃÀÛÇÏ°í ´Ù½Ã Á¢¼ÓÇϱ⸦ ±ÇÇÕ´Ï´Ù.")
                  VerCheck = 1 '"False"
         case "1"
                  VerCheck = 1 '"True"
         case "2"
                  VerCheck = 1 '"True"
                  if IsObject(DPLogonWin) then
                     DPLogonWin.HHClick()
                  end if
         case "3"
                  VerCheck = 0 '"False"
                  Exit Function
         case "10" msgbox("¿À·ù¹ß»ý" & vbCrLf & vbCrLf & "ÆÄÀϾøÀ½")
                  DPLogonWin.HHClick()
                  VerCheck = 1 '"True"
         case "11" msgbox("¿À·ù¹ß»ý" & vbCrLf & vbCrLf & "°æ·Î¾øÀ½")
                  DPLogonWin.HHClick()
                  VerCheck = 1 '"True"
         case "12" msgbox("¿À·ù¹ß»ý" & vbCrLf & vbCrLf & "ÁöÁ¤µÈ ÆÄÀÏÀº Win32 image°¡ ¾Æ´Ô")
                  DPLogonWin.HHClick()
                  VerCheck = 1 '"True"
         case "13" msgbox("¿À·ù¹ß»ý" & vbCrLf & vbCrLf & "OSÀÇ ÆÄÀÏÁ¢±Ù °ÅºÎ")
                  DPLogonWin.HHClick()
                  VerCheck = 1 '"True"
         case "14" msgbox("¿À·ù¹ß»ý" & vbCrLf & vbCrLf & "¿¬°áÆÄÀÏ¸í ºÒÀÏÄ¡")
                  DPLogonWin.HHClick()
                  VerCheck = 1 '"True"
         case "15" msgbox("¿À·ù¹ß»ý" & vbCrLf & vbCrLf & "DDE Æ®·£Àè¼Ç, ½ÇÇàÁß Á¾·á ºÒ°¡")
                  DPLogonWin.HHClick()
                  VerCheck = 1 '"True"
         case "16" msgbox("¿À·ù¹ß»ý" & vbCrLf & vbCrLf & "DDE Æ®·£Àè¼Ç ½ÇÆÐ")
                  DPLogonWin.HHClick()
                  VerCheck = 1 '"True"
         case "17" msgbox("¿À·ù¹ß»ý" & vbCrLf & vbCrLf & "DDE Æ®·£Àè¼Ç, ½Ã°£ ÃÊ°ú")
                  DPLogonWin.HHClick()
                  VerCheck = 1 '"True"
         case "18" msgbox("¿À·ù¹ß»ý" & vbCrLf & vbCrLf & "ÁöÁ¤µÈ DLL ¾øÀ½")
                  DPLogonWin.HHClick()
                  VerCheck = 1 '"True"
         case "19" msgbox("¿À·ù¹ß»ý" & vbCrLf & vbCrLf & "¿¬°á ÇÁ·Î±×·¥ ¾øÀ½")
                  DPLogonWin.HHClick()
                  VerCheck = 1 '"True"
         case "20" msgbox("¿À·ù¹ß»ý" & vbCrLf & vbCrLf & "¸Þ¸ð¸® ºÎÁ·")
                  DPLogonWin.HHClick()
                  VerCheck = 1 '"True"
         case "21" msgbox("¿À·ù¹ß»ý" & vbCrLf & vbCrLf & "°øÀ¯ À§¹Ý")
                  DPLogonWin.HHClick()
                  VerCheck = 1 '"True"
         case "22" msgbox("ÄÄÆ÷³ÍÆ® ´Ù¿î·Îµå´Â µÇ¾úÀ¸³ª ºê¶ó¿ìÀú°¡ ƯÁ¤ ÇÁ·Î¼¼½º¸¦" & vbCrLf&vbCrLf & "Á¡À¯ÇÏ°í À־ ·Î±×ÀÎÀÌ ºÒ°¡´ÉÇÕ´Ï´Ù." & vbCrLf&vbCrLf & "ÄÄÇ»Å͸¦ Àç½ÃÀÛÇÏ°í ´Ù½Ã Á¢¼ÓÇϱ⸦ ±ÇÇÕ´Ï´Ù.")
                  DPLogonWin.HHClick()
                  VerCheck = 1 '"True"
         case "23" msgbox("¿À·ù¹ß»ý" & vbCrLf & vbCrLf & "¸Þ¸ð¸® ¸®¼Ò½º ºÎÁ·")
                  DPLogonWin.HHClick()
                  VerCheck = 1 '"True"
      End select
   else
      VerCheck = 0 '"False"
   end if
End Function