Förenkla en visa/dölj -funktion

Så här mycket kod ska det väl inte behöva bli?
Hur får jag samma resultat med mindre kod?
Jag ska lägga till en ny "del" nu och det verkar lite jobbigt att få in det i koden, speciellt med tanke på att det antagligen kommer till en hel del "delar" sen..

<asp:LinkButton runat="server" id="lkbUsers" OnClick="hideshow_Click" Text="visa" />
<asp:LinkButton runat="server" id="lkbKopSalj" OnClick="hideshow_Click" Text="visa" />
<asp:LinkButton runat="server" id="lkbNewUser" OnClick="hideshow_Click" Text="visa" />

Sub hideshow_Click(ByVal Sender As System.Object, ByVal E As System.EventArgs)
	Select Case Sender.id
		Case "lkbUsers"
			If KonfigDatalist.Visible Then
				KonfigDatalist.Visible = False
				lkbUsers.Text = "visa"
			Else
				KonfigDatalist.Visible = True
				KopSaljDatalist.Visible = False
				tblNewUser.Visible = False
				lkbUsers.Text = "dölj"
				lkbKopSalj.Text = "visa"
				lkbNewUser.Text = "visa"
			End If
		Case "lkbKopSalj"
			If KopSaljDatalist.Visible Then
				KopSaljDatalist.Visible = False
				lkbKopSalj.Text = "visa"
			Else
				KonfigDatalist.Visible = False
				KopSaljDatalist.Visible = True
				tblNewUser.Visible = False
				lkbUsers.Text = "visa"
				lkbKopSalj.Text = "dölj"
				lkbNewUser.Text = "visa"
			End If
		Case "lkbNewUser"
			If tblNewUser.Visible Then
				tblNewUser.Visible = False
				lkbNewUser.Text = "visa"
			Else
				KonfigDatalist.Visible = False
				KopSaljDatalist.Visible = False
				tblNewUser.Visible = True
				lkbUsers.Text = "visa"
				lkbKopSalj.Text = "visa"
				lkbNewUser.Text = "dölj"
			End If
	End Select
End Sub