Public Sub mnuvisible_Click(ByVal eventSender As System.Object, ByVal _
  eventArgs As System.EventArgs) Handles mnuvisible.Click
		Dim Index As Short = mnuvisible.GetIndex(eventSender)
		Dim i As Short
		Dim z As Short
		'UPGRADE_NOTE: str wurde aktualisiert auf str_Renamed. Klicken Sie hier für 
' weitere Informationen: 
' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1061"'
		Dim str_Renamed As String
 
		Cursor = System.Windows.Forms.Cursors.WaitCursor
 
		If mnuvisible(Index).Checked = True Then
			'UPGRADE_ISSUE: Menu Eigenschaft mnuvisible.Tag wurde nicht aktualisiert. 
' Klicken Sie hier für weitere Informationen: 
' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"'
            Image1(mnuvisible(Index).Tag).Visible = False
            'UPGRADE_ISSUE: Menu Eigenschaft mnuvisible.Tag wurde nicht 
            ' aktualisiert. Klicken Sie hier für weitere Informationen: 
            ' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbu" & _
            "2064"'
            Label1(mnuvisible(Index).Tag).Visible = False
 
			For i = 0 To mnuvisible.Count - 1
				'UPGRADE_ISSUE: Menu Eigenschaft mnuvisible.Tag wurde nicht aktualisiert. 
' Klicken Sie hier für weitere Informationen: 
' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"'
				If Image1(mnuvisible(i).Tag).Visible = True Then
					'UPGRADE_ISSUE: Menu Eigenschaft mnuvisible.Tag wurde nicht aktualisiert. 
' Klicken Sie hier für weitere Informationen: 
' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"'
					If VB6.PixelsToTwipsY(Image1(mnuvisible(i).Tag).Top) > _
  VB6.PixelsToTwipsY(Image1(mnuvisible(Index).Tag).Top) Then
						'UPGRADE_ISSUE: Menu Eigenschaft mnuvisible.Tag wurde nicht aktualisiert. 
' Klicken Sie hier für weitere Informationen: 
' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"'
						Image1(mnuvisible(i).Tag).Top = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY( _
  Image1(mnuvisible(i).Tag).Top) - 1080)
						'UPGRADE_ISSUE: Menu Eigenschaft mnuvisible.Tag wurde nicht aktualisiert. 
' Klicken Sie hier für weitere Informationen: 
' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"'
						Label1(mnuvisible(i).Tag).Top = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY( _
  Label1(mnuvisible(i).Tag).Top) - 1080)
					End If
				Else
					'UPGRADE_ISSUE: Menu Eigenschaft mnuvisible.Tag wurde nicht aktualisiert. 
' Klicken Sie hier für weitere Informationen: 
' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"'
					str_Renamed = str_Renamed & "|" & mnuvisible(i).Tag & "| "
				End If
			Next 
			z = -1
		Else
			'UPGRADE_ISSUE: Menu Eigenschaft mnuvisible.Tag wurde nicht aktualisiert. 
' Klicken Sie hier für weitere Informationen: 
' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"'
			Image1(mnuvisible(Index).Tag).Top = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY( _
  Picture3(Image1(mnuvisible(Index).Tag).Tag).Height) + 45)
			'UPGRADE_ISSUE: Menu Eigenschaft mnuvisible.Tag wurde nicht aktualisiert. 
' Klicken Sie hier für weitere Informationen: 
' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"'
			Label1(mnuvisible(Index).Tag).Top = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY( _
  Image1(mnuvisible(Index).Tag).Top) + 555)
			z = 1
 
			'UPGRADE_ISSUE: Menu Eigenschaft mnuvisible.Tag wurde nicht aktualisiert. 
' Klicken Sie hier für weitere Informationen: 
' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"'
			Image1(mnuvisible(Index).Tag).Visible = True
			'UPGRADE_ISSUE: Menu Eigenschaft mnuvisible.Tag wurde nicht aktualisiert. 
' Klicken Sie hier für weitere Informationen: 
' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"'
			Label1(mnuvisible(Index).Tag).Visible = True
 
			For i = 0 To mnuvisible.Count - 1
				'UPGRADE_ISSUE: Menu Eigenschaft mnuvisible.Tag wurde nicht aktualisiert. 
' Klicken Sie hier für weitere Informationen: 
' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"'
				If Not Image1(mnuvisible(i).Tag).Visible = True Then
					'UPGRADE_ISSUE: Menu Eigenschaft mnuvisible.Tag wurde nicht aktualisiert. 
' Klicken Sie hier für weitere Informationen: 
' 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"'
					str_Renamed = str_Renamed & "|" & mnuvisible(i).Tag & "| "
				End If
			Next 
		End If
 
		Picture3(mnupopausblenden.Tag).Height = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY( _
  Picture3(mnupopausblenden.Tag).Height) + (1080 * z))
 
		If z <> 0 Then Flexible_Item_Height()
 
		SaveSetting(System.Reflection.Assembly.GetExecutingAssembly.GetName.Name, _
  "Profile " & user, "DesktopAppearing", RTrim(str_Renamed))
 
		Cursor = System.Windows.Forms.Cursors.Default
	End Sub