Dim mapc As String = map_maplist.SelectedItem
 
		Select Case mapc
			Case mapc = "[TDM]Süd Frankreich"
				MOHSEND("map dm/mohdm1")
			Case mapc = "[TDM]Zerstörtes Dorf"
				MOHSEND("map dm/mohdm2")
			Case mapc = "[TDM]Remagen"
				MOHSEND("map dm/mohdm3")
			Case mapc = "[TDM]Kreutzung"
				MOHSEND("map dm/mohdm4")
			Case mapc = "[TDM]Verschneiter Park"
				MOHSEND("map dm/mohdm5")
			Case mapc = "[TDM]Stalingrad"
				MOHSEND("map dm/mohdm6")
			Case mapc = "[TDM]Algier"
				MOHSEND("map dm/mohdm7")
			Case mapc = "[TDM]Bahnhof"
				MOHSEND("map dm/MP_Bahnhof_DM")
			Case mapc = "[TDM]Stadt"
				MOHSEND("map dm/stadt_dm")
			Case mapc = "[TDM]Brest"
				MOHSEND("map dm/MP_Brest_DM")
			Case mapc = "[TDM]Verschneit"
				MOHSEND("map dm/mp_verschneit_dm")
			Case mapc = "[TDM]Malta"
				MOHSEND("map dm/mp_malta_dm")
			Case mapc = "[TDM]Bazaar"
				MOHSEND("map dm/MP_bazaar_DM")
			Case mapc = "[TDM]Gewitter"
				MOHSEND("map dm/MP_Gewitter_DM")
			Case mapc = "[TDM]Holland"
				MOHSEND("map dm/MP_Holland_DM")
			Case mapc = "[TDM]Unterseite"
				MOHSEND("map dm/MP_Unterseite_DM")
			Case mapc = "[TDM]Flughafen"
				MOHSEND("map dm/obj_Flughafen_TOW")
			Case mapc = "[TDM]Druckkammern"
				MOHSEND("map dm/MP_Druckkammern2")
			Case mapc = "[OBJ]Berlin"
				MOHSEND("map obj/MP_Berlin_TOW")
			Case mapc = "[OBJ]Ardenne"
				MOHSEND("map obj/MP_Ardennes_TOW")
			Case mapc = "[OBJ]Die Jagd"
				MOHSEND("map obj/obj_team1")
			Case mapc = "[OBJ]V2 Raketenbasis"
				MOHSEND("map obj/obj_team2")
			Case mapc = "[OBJ]Omaha Beach"
				MOHSEND("map obj/obj_team3")
			Case mapc = "[OBJ]Die Brücke"
				MOHSEND("map obj/obj_team4")
			Case Else
				MsgBox("sorry")
		End Select
		MsgBox("fertig")