Private Sub KeyGo(Link)
   Location.Replace(Link)
  End Sub
  '------------------------------------------------------------------------------------------------------------------------------------
  Dim XPosKSearch
  Dim PosKSearch
  Dim Pos2KSearch
  Private Sub GoRightKSearch()
   XPosKSearch = KSearch.style.posright + 3
   If XPosKSearch <= 12 Then
    KSearch.style.posright = XPosKSearch
   Else
    Call StpKSearch()
   End If
  End Sub
  Private Sub GoLeftKSearch()
   XPosKSearch = KSearch.style.posright - 1
   If XPosKSearch >= 0 Then
    KSearch.style.posright = XPosKSearch
   Else
    Call StpKSearch()
   End If
  End Sub
  Private Sub GoOutKSearch()
   Call StpKSearch()
   PosKSearch = SetInterval("GoRightKSearch()",1)
   'KSearch.Style.Cursor = "Hand"
  End Sub
  Private Sub GoInKSearch()
   Call StpKSearch()
   Pos2KSearch = SetInterval("GoLeftKSearch()",1)
  End Sub
  Private Sub StpKSearch()
   ClearInterval(PosKSearch) : ClearInterval(Pos2KSearch)
  End Sub
  '------------------------------------------------------------------------------------------------------------------------------------
  Dim XPosKHome
  Dim PosKHome
  Dim Pos2KHome
  Private Sub GoRightKHome()
   XPosKHome = KHome.style.posright + 3
   If XPosKHome <= 12 Then
    KHome.style.posright = XPosKHome
   Else
    Call StpKHome()
   End If
  End Sub
  Private Sub GoLeftKHome()
   XPosKHome = KHome.style.posright - 1
   If XPosKHome >= 0 Then
    KHome.style.posright = XPosKHome
   Else
    Call StpKHome()
   End If
  End Sub
  Private Sub GoOutKHome()
   Call StpKHome()
   PosKHome = SetInterval("GoRightKHome()",1)
   KHome.Style.Cursor = "Hand"
  End Sub
  Private Sub GoInKHome()
   Call StpKHome()
   Pos2KHome = SetInterval("GoLeftKHome()",1)
  End Sub
  Private Sub StpKHome()
   ClearInterval(PosKHome) : ClearInterval(Pos2KHome)
  End Sub
  '------------------------------------------------------------------------------------------------------------------------------------
  Dim XPosKDirec
  Dim PosKDirec
  Dim Pos2KDirec
  Private Sub GoRightKDirec()
   XPosKDirec = KDirec.style.posright + 3
   If XPosKDirec <= 12 Then
    KDirec.style.posright = XPosKDirec
   Else
    Call StpKDirec()
   End If
  End Sub
  Private Sub GoLeftKDirec()
   XPosKDirec = KDirec.style.posright - 1
   If XPosKDirec >= 0 Then
    KDirec.style.posright = XPosKDirec
   Else
    Call StpKDirec()
   End If
  End Sub
  Private Sub GoOutKDirec()
   Call StpKDirec()
   PosKDirec = SetInterval("GoRightKDirec()",1)
   KDirec.Style.Cursor = "Hand"
  End Sub
  Private Sub GoInKDirec()
   Call StpKDirec()
   Pos2KDirec = SetInterval("GoLeftKDirec()",1)
  End Sub
  Private Sub StpKDirec()
   ClearInterval(PosKDirec) : ClearInterval(Pos2KDirec)
  End Sub
  '------------------------------------------------------------------------------------------------------------------------------------
  Dim XPosKConsul
  Dim PosKConsul
  Dim Pos2KConsul
  Private Sub GoRightKConsul()
   XPosKConsul = KConsul.style.posright + 3
   If XPosKConsul <= 12 Then
    KConsul.style.posright = XPosKConsul
   Else
    Call StpKConsul()
   End If
  End Sub
  Private Sub GoLeftKConsul()
   XPosKConsul = KConsul.style.posright - 1
   If XPosKConsul >= 0 Then
    KConsul.style.posright = XPosKConsul
   Else
    Call StpKConsul()
   End If
  End Sub
  Private Sub GoOutKConsul()
   Call StpKConsul()
   PosKConsul = SetInterval("GoRightKConsul()",1)
   KConsul.Style.Cursor = "Hand"
  End Sub
  Private Sub GoInKConsul()
   Call StpKConsul()
   Pos2KConsul = SetInterval("GoLeftKConsul()",1)
  End Sub
  Private Sub StpKConsul()
   ClearInterval(PosKConsul) : ClearInterval(Pos2KConsul)
  End Sub
  '------------------------------------------------------------------------------------------------------------------------------------
  Dim XPosKContra
  Dim PosKContra
  Dim Pos2KContra
  Private Sub GoRightKContra()
   XPosKContra = KContra.style.posright + 3
   If XPosKContra <= 12 Then
    KContra.style.posright = XPosKContra
   Else
    Call StpKContra()
   End If
  End Sub
  Private Sub GoLeftKContra()
   XPosKContra = KContra.style.posright - 1
   If XPosKContra >= 0 Then
    KContra.style.posright = XPosKContra
   Else
    Call StpKContra()
   End If
  End Sub
  Private Sub GoOutKContra()
   Call StpKContra()
   PosKContra = SetInterval("GoRightKContra()",1)
   KContra.Style.Cursor = "Hand"
  End Sub
  Private Sub GoInKContra()
   Call StpKContra()
   Pos2KContra = SetInterval("GoLeftKContra()",1)
  End Sub
  Private Sub StpKContra()
   ClearInterval(PosKContra) : ClearInterval(Pos2KContra)
  End Sub
  '------------------------------------------------------------------------------------------------------------------------------------
  Dim XPosKNews
  Dim PosKNews
  Dim Pos2KNews
  Private Sub GoRightKNews()
   XPosKNews = KNews.style.posright + 3
   If XPosKNews <= 12 Then
    KNews.style.posright = XPosKNews
   Else
    Call StpKNews()
   End If
  End Sub
  Private Sub GoLeftKNews()
   XPosKNews = KNews.style.posright - 1
   If XPosKNews >= 0 Then
    KNews.style.posright = XPosKNews
   Else
    Call StpKNews()
   End If
  End Sub
  Private Sub GoOutKNews()
   Call StpKNews()
   PosKNews = SetInterval("GoRightKNews()",1)
   KNews.Style.Cursor = "Hand"
  End Sub
  Private Sub GoInKNews()
   Call StpKNews()
   Pos2KNews = SetInterval("GoLeftKNews()",1)
  End Sub
  Private Sub StpKNews()
   ClearInterval(PosKNews) : ClearInterval(Pos2KNews)
  End Sub
  '------------------------------------------------------------------------------------------------------------------------------------
  Dim XPosKJoin
  Dim PosKJoin
  Dim Pos2KJoin
  Private Sub GoRightKJoin()
   XPosKJoin = KJoin.style.posright + 3
   If XPosKJoin <= 12 Then
    KJoin.style.posright = XPosKJoin
   Else
    Call StpKJoin()
   End If
  End Sub
  Private Sub GoLeftKJoin()
   XPosKJoin = KJoin.style.posright - 1
   If XPosKJoin >= 0 Then
    KJoin.style.posright = XPosKJoin
   Else
    Call StpKJoin()
   End If
  End Sub
  Private Sub GoOutKJoin()
   Call StpKJoin()
   PosKJoin = SetInterval("GoRightKJoin()",1)
   KJoin.Style.Cursor = "Hand"
  End Sub
  Private Sub GoInKJoin()
   Call StpKJoin()
   Pos2KJoin = SetInterval("GoLeftKJoin()",1)
  End Sub
  Private Sub StpKJoin()
   ClearInterval(PosKJoin) : ClearInterval(Pos2KJoin)
  End Sub
  '------------------------------------------------------------------------------------------------------------------------------------
  Dim XPosKLinks
  Dim PosKLinks
  Dim Pos2KLinks
  Private Sub GoRightKLinks()
   XPosKLinks = KLinks.style.posright + 3
   If XPosKLinks <= 12 Then
    KLinks.style.posright = XPosKLinks
   Else
    Call StpKLinks()
   End If
  End Sub
  Private Sub GoLeftKLinks()
   XPosKLinks = KLinks.style.posright - 1
   If XPosKLinks >= 0 Then
    KLinks.style.posright = XPosKLinks
   Else
    Call StpKLinks()
   End If
  End Sub
  Private Sub GoOutKLinks()
   Call StpKLinks()
   PosKLinks = SetInterval("GoRightKLinks()",1)
   KLinks.Style.Cursor = "Hand"
  End Sub
  Private Sub GoInKLinks()
   Call StpKLinks()
   Pos2KLinks = SetInterval("GoLeftKLinks()",1)
  End Sub
  Private Sub StpKLinks()
   ClearInterval(PosKLinks) : ClearInterval(Pos2KLinks)
  End Sub
  '------------------------------------------------------------------------------------------------------------------------------------
  Dim XPosKHelp
  Dim PosKHelp
  Dim Pos2KHelp
  Private Sub GoRightKHelp()
   XPosKHelp = KHelp.style.posright + 3
   If XPosKHelp <= 12 Then
    KHelp.style.posright = XPosKHelp
   Else
    Call StpKHelp()
   End If
  End Sub
  Private Sub GoLeftKHelp()
   XPosKHelp = KHelp.style.posright - 1
   If XPosKHelp >= 0 Then
    KHelp.style.posright = XPosKHelp
   Else
    Call StpKHelp()
   End If
  End Sub
  Private Sub GoOutKHelp()
   Call StpKHelp()
   PosKHelp = SetInterval("GoRightKHelp()",1)
   KHelp.Style.Cursor = "Hand"
  End Sub
  Private Sub GoInKHelp()
   Call StpKHelp()
   Pos2KHelp = SetInterval("GoLeftKHelp()",1)
  End Sub
  Private Sub StpKHelp()
   ClearInterval(PosKHelp) : ClearInterval(Pos2KHelp)
  End Sub
  '------------------------------------------------------------------------------------------------------------------------------------
  Dim XPosKMap
  Dim PosKMap
  Dim Pos2KMap
  Private Sub GoRightKMap()
   XPosKMap = KMap.style.posright + 3
   If XPosKMap <= 12 Then
    KMap.style.posright = XPosKMap
   Else
    Call StpKMap()
   End If
  End Sub
  Private Sub GoLeftKMap()
   XPosKMap = KMap.style.posright - 1
   If XPosKMap >= 0 Then
    KMap.style.posright = XPosKMap
   Else
    Call StpKMap()
   End If
  End Sub
  Private Sub GoOutKMap()
   Call StpKMap()
   PosKMap = SetInterval("GoRightKMap()",1)
   KMap.Style.Cursor = "Hand"
  End Sub
  Private Sub GoInKMap()
   Call StpKMap()
   Pos2KMap = SetInterval("GoLeftKMap()",1)
  End Sub
  Private Sub StpKMap()
   ClearInterval(PosKMap) : ClearInterval(Pos2KMap)
  End Sub
  '------------------------------------------------------------------------------------------------------------------------------------
  Dim XPosKAbout
  Dim PosKAbout
  Dim Pos2KAbout
  Private Sub GoRightKAbout()
   XPosKAbout = KAbout.style.posright + 3
   If XPosKAbout <= 12 Then
    KAbout.style.posright = XPosKAbout
   Else
    Call StpKAbout()
   End If
  End Sub
  Private Sub GoLeftKAbout()
   XPosKAbout = KAbout.style.posright - 1
   If XPosKAbout >= 0 Then
    KAbout.style.posright = XPosKAbout
   Else
    Call StpKAbout()
   End If
  End Sub
  Private Sub GoOutKAbout()
   Call StpKAbout()
   PosKAbout = SetInterval("GoRightKAbout()",1)
   KAbout.Style.Cursor = "Hand"
  End Sub
  Private Sub GoInKAbout()
   Call StpKAbout()
   Pos2KAbout = SetInterval("GoLeftKAbout()",1)
  End Sub
  Private Sub StpKAbout()
   ClearInterval(PosKAbout) : ClearInterval(Pos2KAbout)
  End Sub
  '------------------------------------------------------------------------------------------------------------------------------------
  Dim XPosKContact
  Dim PosKContact
  Dim Pos2KContact
  Private Sub GoRightKContact()
   XPosKContact = KContact.style.posright + 3
   If XPosKContact <= 12 Then
    KContact.style.posright = XPosKContact
   Else
    Call StpKContact()
   End If
  End Sub
  Private Sub GoLeftKContact()
   XPosKContact = KContact.style.posright - 1
   If XPosKContact >= 0 Then
    KContact.style.posright = XPosKContact
   Else
    Call StpKContact()
   End If
  End Sub
  Private Sub GoOutKContact()
   Call StpKContact()
   PosKContact = SetInterval("GoRightKContact()",1)
   KContact.Style.Cursor = "Hand"
  End Sub
  Private Sub GoInKContact()
   Call StpKContact()
   Pos2KContact = SetInterval("GoLeftKContact()",1)
  End Sub
  Private Sub StpKContact()
   ClearInterval(PosKContact) : ClearInterval(Pos2KContact)
  End Sub
  '------------------------------------------------------------------------------------------------------------------------------------
  Dim XPosKPersian
  Dim PosKPersian
  Dim Pos2KPersian
  Private Sub GoRightKPersian()
   XPosKPersian = KPersian.style.posright + 3
   If XPosKPersian <= 12 Then
    KPersian.style.posright = XPosKPersian
   Else
    Call StpKPersian()
   End If
  End Sub
  Private Sub GoLeftKPersian()
   XPosKPersian = KPersian.style.posright - 1
   If XPosKPersian >= 0 Then
    KPersian.style.posright = XPosKPersian
   Else
    Call StpKPersian()
   End If
  End Sub
  Private Sub GoOutKPersian()
   Call StpKPersian()
   PosKPersian = SetInterval("GoRightKPersian()",1)
   KPersian.Style.Cursor = "Hand"
  End Sub
  Private Sub GoInKPersian()
   Call StpKPersian()
   Pos2KPersian = SetInterval("GoLeftKPersian()",1)
  End Sub
  Private Sub StpKPersian()
   ClearInterval(PosKPersian) : ClearInterval(Pos2KPersian)
  End Sub
  '------------------------------------------------------------------------------------------------------------------------------------