m.Map.Map_Move(Direction:=sender.Tag) 'あるいは m.Map.Map_Move(Direction:=DirectCast(sender, Control).Tag) 'あるいは m.Map.Map_Move(Direction:=DirectCast(DirectCast(sender, Control).Tag, Map.Dir))