Dim i As Integer
        Dim mnuLGU As ToolStripMenuItem
        Dim mnuItem As ToolStripMenuItem
 
        i = 0
        Try
            With frmMain
                mnuLGU = frmMain.ContextMenuStrip1.Items("mnuSelectLng")
                mnuLGU.Text = cLGU.GetLngString(100)
                For Each mnuItem In mnuLGU.DropDownItems
                    i += 1
                    mnuItem.Text = s & cLGU.GetLngString(100 + i)
                Next mnuItem
 
                .mnuBeenden.Text = cLGU.GetLngString(120)
            End With
        Catch ex As Exception
            Call ErrorLogbuch("SetMainFormText", Err.Description)
        End Try